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outtextxy(2*x,16*y,"  A  (currently  largest  labeled)  in  L"); 
outtextxy(2*x,17*y,"  and  label  them  with  k  +  1  =  1"); 

Pause(7*x,24*y); 

outtextxy(52*x,4*y,"B"); 

outtextxy(52*x,5*y,"E"); 

/********************************************************************/ 


outtextxy(58*x,4*y,"B  <- 1"); 
outtextxy(58*x,5*y,"E  <-  1"); 
outtextxy(22*x,4*y ,"( 1 )"); 
outtextxy(8*x,15*y/2,"(l)"); 


/********************************************************************/ 
outtextxy(2*x,19*y,".  Put  the  edges  connecting  these  "); 
ou?textxy(2*x,20*y,"  vertices  to  A  in  the  tree  T."); 

Pause(7*x,24*y); 

outtextxy(72*x,4*y,"(A,B)"); 

outtextxy(72*x,5*y,"(A,E)"); 
setcolor(backcolor) ; 

moveto(20*x,4*y);  lineto(10*x,4*y);  lineto(10*x,7*y); 
setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,4*y);  lineto(10*x,4*y),  /*  add  (A,B)  to  T  *j 
lineto(10*x,7*y);  /*  add  (A,D)  to  T  */ 

setlinestyle(0,0,3); 

/********************************************************************/ 


outtextxy(2*x,22*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 
outtextxy(45*x,4*y,"  1 "); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,55*x,49*y/2); 
setcolor(forecolor); 

/********************************************************************/ 
outtextxy(2*x,15*y,".  Since  L  does  not  contain  all  the  vertices");  1  □ 


outtextxy(2*x,16*y,"  of  the  graph  G,  find  all  the  unlabeled"); 
outtextxy(2*x,17*y,"  vertices  adjacent  to  those  currently"); 
outtextxy(2*x,18*y,"  having  largest  labeles  and  label  them"); 


outtextxy(2*x,19*y,"  with  k  +  1  =  2"); 
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Pause(7*x,24*y); 

outtextxy(52*x,6*y,"F"); 

y*  ******************************************************* 

outtextxy(58*x,6*y,"F  <-  2"); 
outtextxy(21*x,27*y/4,"(2)"); 

y**********************.«*********************************************y 

outtextxy(2*x,20*y,".  As  you  see  there  are  more  than  one  edge"); 
outtextxy(2*x,21*y,"  conneting  F  to  those  labeled  with  1,  so  "); 
outtextxy(2*xt22*y,"  choose  one  of  them  arbitrarily."); 

Pause(7*x,24*y); 

outtextxy(72*x,6*y,"(BtF)"); 

setcolor(backcolor); 

moveto(2G:'x,4*y),  lineto(20*x,7*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,4*y);  lineto(20*x,7*y);  /*  add  (B,F)  to  T  */ 
setlinestyle(0,0,3); 

I******************************************************************** I 

outtextxy(2*x,23*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 

outtextxy(45*x,6*y,"2"); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,49*y/2); 

setcolor(forecolor); 

y********************************************************************y 

outtextxy(2*x,15*y,".  Since  L  does  not  contain  all  the  vertices"); 
outtextxy(2*x,16*y,"  of  The  graph  G,  find  all  the  unlabeled"); 
outtextxy(2*x,17*y,"  vertices  adjacent  to  those  currently"); 
outtextxy(2*x,18*y,"  having  largest  labeles  and  label  them"); 
outtextxy(2*x,19*y,"  with  k  +  1  =  3"); 

Pause(7*x,24*y); 
outtextxy(52*x,7*y,"G  y, 
outtextxy(52*x,8*y,T’); 

I**********************************.**********************************/ 

outtextxy(58*x,7*y,"G  <-  3"); 
outtextxy(58*x,8*y,"I  <-  3"); 


outtextxy(  1 6*x,  10*y,"(3)"); 
outtextxy(26*x,27*y/4,"(3)"); 

/********************************************************************/ 
outtextxy(2*x,20*y,".  Put  the  edges  connecting  these  "); 
outtextxy(2*x,21*y,"  vertices  to  the  vertices  labeled"); 
outtextxy(2*x,22*y,"  with  2,  in  the  tree  T."); 

Pause(7*x,24*y); 

outtextxy(72*x,7*y,"(F,G)"); 

outtextxy(72*x,8*y,"(F,I)"); 

setcolor(backcolor); 

moveto(20*x,10*y);  lineto(20*x,7*y);  lineto(30*x,7*y); 
setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,10*y);  lineto(20*x,7*y);  /*  add  (F,I)  to  T  */ 
lineto(30*x,7*y);  /*  add  (F,G)  to  T  */ 

setlinestyle(0,0,3); 

y********************************************************:f;***********y 

outtextxy(2*x,23*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 

outtextxy(45*x,7*y,"3"); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,49*y/2); 

setcolor(forecolor); 

y*  *******************************************************************/ 

outtextxy(2*x,15*y,".  Since  L  does  not  contain  all  the  vertices"); 
outtextxy(2*x,16*y,"  of  The  graph  G,  find  all  the  unlabeled"); 
outtextxy(2*x,17*y,"  vertices  adjacent  to  those  currently"); 
outtextxy(2*x,18*y,"  having  largest  labeles  and  label  them"); 
outtextxy(2*x,19*y,"  with  k  +  1  =  4"); 

Pause(7*x,24*y); 
outtextxy(52*x,9*y,"C"); 
outtextxy(52*x,10*y,"H"); 
outtextxy(52*x,i  l*y,  "J"); 

^**m*****************************************************^*-f-***  *****/ 

outtextxy(58*x,9*y,"C  <-  4"); 
outtextxy(r8*x  w*y,""  <  4"); 
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outtextxy(58*x,ll*y,"J  <-  4"); 
outtextxy(38*x,  1 5*y/2,"(4)"); 
outtextxy(26*x,4*y,"(4)"); 
outtextxy(32*x,10*y,"(4)"); 

^*^ ******* ********************************************************  **/ 


outtextxy(2*x,20*y,".  Put  the  edges  connecting  these "); 
outtextxy(2*x,21*y,"  vertices  to  the  vertices  labeled"); 
outtextxy(2*x,22*y,"  with  3,  in  the  tree  T."); 
Pause(7*x,24*y); 

outtextxy(72*x,9*y,"(GJ)  (Why  not"); 
outtextxy(72*x,19*y/2,"  (IJ)  ?)"); 
outtextxy(72*x,10*y,"(G»C)"); 
outtextxy(72*x,l  l*y,"(G,H)"); 
setcoIor(backcolor); 

moveto(40*x,7*y);  lineto(30*x,7*y);  lineto(30*x,4*y); 
moveto(30*x,7*y);  lineto(30*x,10*y); 
setcolor(forecolor) ; 

setlinestyle(3,0,3); 

moveto(40*x,7*y);  lineto(30*x,7*y);  /*  add  (G,H)  to  T  */ 
lineto(30*x,4*y);  f*  add  (G,C)  to  T  */ 

moveto(30*x,7*y);  lineto(30*x,10*y);  /*  add  (G,J)  to  T  */ 
setlinestyle(0,0,3); 


j********************************************************************/ 


outtextxy(2*x,23*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 

outtextxy(45*x,9*y,"4"); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,49*y/2); 

setcolor(forecolor); 

^************************************ ******************************** I 


outtextxy(2*x,15*y,".  Since  L  does  not  contain  all  the  vertices"); 
outtextxy(2*x,16*y,"  of  The  graph  G,  find  all  the  unlabeled"); 
outtextxy(2*x,17*y,"  vertices  adjacent  to  those  currently"); 
outtextxy(2*x,18*y,"  having  largest  labeles  and  label  them"); 
outtextxy(2*x,19*y,"  with  k  +  1  =  5"); 

Pause(7*x,24*y); 
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outtextxy(52*x,12*y,"D"); 

^************************************************ *************** *****J 

outtextxy(58*x,12*y,"D  <-  5"); 
outtextxy(4 1  *x,4*y,"(5)"); 

^************************** *************************** ***************^ 
outtextxy(2*x,20*y,".  Put  the  edges  connecting  this  "); 
outtcxtxy(2*x,21*y,"  vertice  to  one  of  those  labeled"); 
outtextxy(2*x,22*y,"  with  4,  in  the  tree  T."); 

Pause(7*x,24*y); 
outtextxy(72*x,12*y,"(HJD)"); 
setcolor(backcolor) ; 
moveto(40*x,7*y);  lineto(40*x,4*y); 
setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(40*x,7*y);  lineto(40*x,4*y);  /*  add  (H,D)  to  T  */ 
setlinestyle(0,0,3); 

^********************************************************************  ^ 
outtextxy(2*x,23*y,".  Increment  k  and  go  to  Step  2."); 

Pause(7*x,24*y); 

outtextxy(45*x,12*y,"5"); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,49*y/2); 

setcolor(forecolor); 

j********************************************************************/ 

outtextxy(2*x,15*y,".  As  you  see  L  contains  all  the  vertices"); 
outtextxy(2*x,16*y,"  of  the  graph  G.  This  means  we  are  done."); 

^********************************************************* *********** ^ 

Pause(30*x,24*y); 

closegraph(); 

videoinitQ; 
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/*  PROGRAM  :  exspan6.c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Apr.  18,  1990 

REVISED  :  Apr.  18,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  a  graph  which  cannot 
have  spanning  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  ! defined!  ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey!a)  _bk>s_keybrd(a) 

#define  findfirstfa,b,c)  _dos_findfirst!a,c,b) 

#define  findnextfa)  _dos_findnext(a) 

#define  ffblk  fuid_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#defme  _GRAPH_TJDEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


jlr  *  *  *  **  *  ***  *  *  ***  *  if<  *  **  *  %  *  *  *  *  *****  *  **  ^  **  #  *  *  ******  *  *  ********  *  *  *****  **  *  ***  Mj 

/*  graphic  initialization  variables  */ 

/**********************************************************************^ 
int  currjmode; 
int  graphdriver; 
int  graphmode; 
int  graph„eiTor; 
int  backcolor; 
int  forecolor; 
int  x,  y,  MaxX,  MaxY; 


/* 


*/ 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 

( 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


I 
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/*  This  faction  initializes  the  necessary  graphical  routines  */ 

^♦♦♦ifr******************************************************************^ 

static  void  init__graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

initgraph(<£graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

/rfr*******************************************************************/ 

if(graph_error  <  0) { 
puts(grapherrormsg(graph_error)); 
exit(l ); 


MaxX  =  getmaxxO; 
MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 


settext( ); 

y**#*****************************************************************/ 
if  ((graphmode  ==  CGAHI)  II  (graplunode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHl)  II  (graplunode  ==  ATV400H1))  ( 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 


else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 

I 

forecolor  =  WHITE; 

I 
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/*  This  function  sets  the  text  default  values  */ 

********************************************************************* 

static  void  settext(void) 

I 

settextstyle(0,0,0); 
setlinestyle(0,4,3 ); 

settextjustify(HORIZ_DIR.CENTER_TEXT); 

) 

/********************************************************************* *^ 
/*  Equivalent  of  press_a  Jkey  function  for  graphics  screen  */ 

/********************************************************************** 
void  Pause(i,j) 
int  i,  j; 


settext(); 

outtextxy(i,j,"»^  PRESS  A  KEY  TO  CONTINUE.. .<«"); 
if(waitkey(  )==ESC)  ( 
closegraphi ); 
videoinitO; 
exit(O); 


) 


/*  *********** *^********************************************************^ 
/*  main  routine  that  calls  exer  routine  */ 

^*********************************************************************j(,^ 

void  main() 

I 

exer(); 

} 
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y+*4r  +  +  +  *  +  %4**^*^*****%*****:4<***:4<  +  *********3t*:*t*JH5k5^%1t:f:****3t<**:4t:ft**sk****  +  *  +  **^ 

/*  This  routine  illustrates  a  graph  which  cannot  have  spanning  tree.  */ 

/**********************************************************************/ 
void  exer() 

( 

init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX.MaxY); 
rectangle(x,y.MaxX-A,MaxY-y/2); 
outtextxy(38*x.y/2, "EXAMPLE  SPAN_6"); 

/***********************^**iM******* *********************************/ 

outtextxy(2*x.2*y,"The  graph  in  this  figure  does  not  have  a  spanning  tree  because 
it  is  not”); 

outtextxy(2*x,3*y, "possible  to  choose  edges  that  connect  all  the  vertices  of  G  In 
particular,"); 

outtextxy(2*x.4*y,"we  cannot  find  edges  of  G  that  can  be  used  to  make  a  path  from 
At  D."); 

y* +  +  %  +  +  +  ♦******************  +  ********  *  +  ********5k5k*^ 

pieslice(35*x,  1 3*y  ,0,359.2); 
pieslice(55*x,13*y, 0,359,2); 
pieslice(45*x,9*y,0,359,2); 
pieslice(45*x,17*y, 0,359,2); 
moveto(35*x,  1 3 *y );  lineto(55 *x,  1 3 *y ); 

1  inetot  ■ 45  *x  ,9  *y ;  1  ineto(3  5  *x ,  1 3  *y ) ; 

outtextxy(45*x,17*y/2,"A"); 

outtextxy(33*x,13*y,"B"); 

outtextxy(56*x,l3*y,”C”); 

outtextxy(46*x,17*y,"D"); 

y********************************************************************/ 

Pause(30*x,24*y ); 
closegraphl ); 
videouiit( ); 
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/*  program 

AUTHOR 

DATE 

REVISED 


:  qs42i.c 
.  Atilla  BAKAN 
:  Mar.  22,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  the 
spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  TBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#incltide  <graphics.h> 

#include  "cxldef.h” 

#indude  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined(_ZTC__)  !*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_ktybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  fintlnext(a)  _dos_findnext(a) 

#define  ffblk  fmd_t 

#define  ff  name  name 


#elif  defined! _ ZTC  _) 

#define  ffblk  FIND 


/*  Zortech  C/C+-T  */ 


#define  ff  name  name 
#define  ff  attrih  attribute 

#endif 
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#define  _GRAFH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confimi_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_diivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  showalg  (void); 

static  void  step_solution  (void); 
static  void  coinpare_solutions  (void); 
static  void  confinn_exit  (void); 

^*  *******+**********♦***+*****+*******♦***+* **+*++**************+***** 

/*  miscellaneous  global  variables  */ 

/**************%*****************%**********%************%*************/ 
iiit  in_the_exercise  =  L; 


/*  graphic  initialization  variables  */ 

/**********************************************************************/ 
int  curr_mode; 
int  graphdriver; 
int  graplunode; 
int  graph_error; 
int  backcolor; 
int  forecolor; 
int  quitcolor; 


int  x,  y,  MaxX,  MaxY; 
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y***********'*'P^.4<jpl<*****l(c**j)t*!(<*:(<*!(<*  +  **J)<>tt*****j|<*!(<***:|l*J|<*********  +  i)<*^*****^ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^**********  +  *%**  +  ***!(<**  +  ***#***********l(<*****%!(<j|<**  +  *****^<i(t**j|<**^t****>(<*l(t^ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


/********************************************************************* 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

static  void  init_grapli(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT ; 

/fc^******************************************************************/ 

in  itgraph(&graphdr  iver  ,&graphmode,"  " ) ; 
graph_error  =  grapluesult(); 

Z********************************************************************/ 

if(graph_error  <  0)  { 
puts(grapherronnsg(graph_error)); 
exit(  1 ); 

} 

/++******+****+**+*+****+++*++++**+++++++**++++*****+*++**+*++*+***+*/ 
MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

/t*******************************************************************^ 

settext(); 

^t*******************************************************************^ 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphinode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLIDJFILL.BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

I 


/it********************************************************************’*'/ 


static  void  confirm _graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor) ; 

bar(3*x/2,23*y,l79*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?”); 
ch  =  getch  (); 

whUe  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’»)  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  Y)  II  (ch  ==  V)  II  (ch  ==  *Y’)  II  (ch  ==  ’N’)) 


setcolor(backcolor); 

bar(3l*x,23*y,69*x,97*y/4); 

setcolor(qu  itcolor ) ; 


} 

switch  (ch)  ( 

case  ’y’:  closegraph(); 
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videoinitO; 

exit(O); 

break; 

case  ’Y’;  closegraph(); 
videoiiiit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x.23*yf69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default :  break; 

) 

ludecurO; 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 


^+*1^  ***********************************  **********************,(,*  ***,,,*,,,*/ 

/*  This  function  sets  the  text  default  values  */ 

^******* ********************************************************* **^^^,^^ 
static  void  settextfvoid) 

( 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

I 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


void  Pause(i,j) 
int  i,  j; 

< 


settext(); 

outtextxy(.i,j,”»>PRESS  A  KEY  TO  CONTlNUE...<«"); 
if( waitkey ( )==  ESC )  confirm_graph_exit() ; 

} 


j  4t  *  *  *  *  *  *  *  *  *  *  *  3k  *  *  *  *  +  *  ★  *  *  *  *  sfc  *  *  *  *  *  *  *  *  *  %  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  %  *  *  *  %  *  *  **  * 

/*  main  routine  that  calls  exer  routine  */ 

/+***************+************************ ************* **************** 
void  main() 

( 

exer(); 

} 
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/+***  +  ***  +  ****  +  ***********  +  *  +  *****  +  ***  +  !»<**********  +  *  +  ****  +  +  +  *  +  *****  +  ***/ 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/it*********************************************************************/ 

static  void  exer(void) 

I 

char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX.MaxY); 
rectangle(x,y  .MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2,"EXERCISE  1"); 

outtextxy(2*x,2*y,"Use  the  breadth  first  search  algorithm  to  find  a  minimal 
spanning  tree."); 

outtextxy(2*x.3*y, "(Start  at  A.  If  there  is  a  choice  of  edges  select  edges  according 
to"); 

outtextxy(2*x.4*y, "alphabetical  order.)"); 
pieslice(20*x.5*y,0,359,2);  /*  A  */ 

pieslice(30*x.5*y,0,359,2);  /*  B  */ 

pieslice(20*x,l3*y/2,0,359,2);  /*  C  */ 
pieslice(30*x.  l3*y/2,0,359,2);  /*  D  */ 
pieslice(40*x.  13 *y/2, 0,359,2);  /*  E  */ 
pieslice(30*x,8*y,0,359,2);  /*  F  */ 

pieslice(40*x,8*y, 0,359,2);  /*  G  */ 

pieslice(50*x,8*y,0,359,2);  /*  H  */ 

pieslice(40*x,  19*y/2,0,359,2);  /*  I  */ 
pieslice(50*x,  l9*y/2,0,359,2);  /*  J  */ 
pieslice(60*x,  19*y/2,0,359,2);  /*  K  */ 
pieslice(50*x,l  l*y,0,359,2);  /*  L  */ 

pieslice(60*x,  1 1  *y  ,0,359,2);  /*  M  */ 

outtextxy(20*x,9*y/2,"A"); 
outtextxy(30*x,9*y/2,"B"); 
outtextxy(  1 8  *x,  1 3  *y/2,"C" ); 
outtextxy(3 1  *x,25*y/4,"D"); 
outtextxy(4 1  *x ,  1 3  *y/2,"  E" ); 


outtextxy(28*x,8*y,"F"), 
outtextxy(4 1  *x,3 1  *y/4,”G"); 


outtextxy(5 1  *x,8*y,"H"); 
outtextxy(38*x,19*y/2,'T); 
outtextxy(5 1  *x,37*y/4,"J"); 
outtextxy(60*x,9*y,"K"); 
outtextxy(48*x,l  1  *y,"L"); 
outtextxy(60*x,23  *y/2,"M" ); 

moveto(20*x,5*y);  lineto(30*x,5*y);  lineto(30*x,8*y); 
lineto(50*x,8*y);  lineto(50*x,ll*y);  lineto(60*x,l l*y); 
moveto(20*x,5*y);  lineto(20*x,13*y/2);  lineto(40*x,13*y/2); 
liiv;to(40*x,19*y/2);  lineto(60*x,I9*y/2);  liiieto(60*x,l  l*y); 
wliiJe  (in_the_exercise  ==  I )  ( 


outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algoritlim  again."); 
outtextxy(  15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y,"Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC )  confirm_graph_exit( ); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  =  ’c’)  II  (Ch  ==  ’d’)))  { 


outtextxy(48  *x ,  1 9*y ,”  Please  type  a,  b,  c  or  d” ); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  =  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

) 


) 

switch  (Ch)  ( 

case  ’a’:  outtextxy(47*x,19*y,”a"); 


outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
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setcolor(backcolor); 

bar(50*x.37*y/2,179*x/2,21*y); 

bar(2*x,  1 3*y ,  1 79*x/2,49*y/2); 

setcolor(forecolor ); 

show_alg(); 

break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x.37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

cotnpare_solutions(); 

break; 

case  V:  outtextxy(47*x,l9*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y, "solution.  So  press  any  key  to  "); 
outtextxy(.52*x, 2  l*y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(  forecolor); 

step_so!ution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confinn_exit(); 
break; 

default  :  break; 

} 

closegraphO; 
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^+*  +  s(!!d************:|l**s)<!|<*******!|<s|<*!fr**:(<s|<*********sk***s|<**it<*>H*****=***!|<>l<>l<:tts|<’iy 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 


static  void  step_solution(void) 

( 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

outtextxy(64*x.5*y,"k"); 
outtextxy(70*x,5*y,"L"); 
outtextxy(75*x,5*y, "Label"); 
outtextxy(86*x.5*y,"T"); 
moveto(62*x.l  l*y/2);  lineto(67*x,l  l*y/2); 
moveto(68*x.l  l*y/2);  lineto(73*x,l  l*y/2); 
moveto(74*x,l  l*y/2);  lineto(165*x/'2,l  l*y/2); 
moveto(84*x,l  l*y/2);  lineto(89*x,l  l*y/2); 

j  *  *  *  *  *  *  *  *  %  *  ★  *  *  afe  %  Jfc  ♦  %  ^  *  jfcjfc  Jfc  *  jfc  +  jfc  :fc  *  %  *  *  jfc  jfc  *  *  *  jfc  *  *  *  *  jfc  *  *  *  *  jfc  %  *  *  %  %  jfc  *  *  %  jfc  *  *  %  %  *  *  %  *  jfc  jfc 

outtextxy(70*x,6*y,"A"); 
outtextxy(64*x,6*y,"0"); 
outtextxy(75*x,6*y,"A  <-  0"); 
outtextxy(  1 6*x,5*y,"(0)"); 

Pause(30*x,24*y); 
outtextxy(70*x,7*y,"B"); 
outtextxy(70*x,8*y,"C"); 
outtextxy(75*x,7*y,"B  <-  1"); 

outtextxy(84*x,7*y,"(A,B)"); 

outtextxy(3 1  *x,5*y,"(  1 )"); 
outtextxy(75*x,8*y,"C  <-  1"); 
outtextxy(84*x,8*y,"(A,C)"); 
outtextxy(  19*x.7*y,"(  1 )"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
moveto(20*x,5*y);  lineto(30*x,5*y); 


788 


> 


i  no  ve  to(  20  *  x  ,3  *y ) ;  1  ine  to(20  *  x ,  1 3  *  y/2 ); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(20*x,5*y);  lineto(30*x,5*y);  /*  add  (A,  B)  to  T  */ 

mo veto(20 *x  ,5  *  y) ;  lineto(20*x,13*y/2);  /*  add  (A,  C)  to  T  */ 
setline$tyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(64*x17*y,'T’); 

jiH  *  3|c  $  *  *  +  *  :(<  jfc  *  *  *  *  *  *  *  ^  *  *  *  *  *  *  sfr*  *  *  *  *  *  *  a|c  sfc  a|c  *  %  +  sk  jfr*  *  *  jfe  *  *  s|c  afc  *  *  *  *  *  *  %  *  *  *  *  *  *  *  *  ★  *  *  *  j 

outtextxy(70*x.9*y,"D"); 
outtextxy(75*x,9*y,"D  <-  2"); 
outtextxy(84*x,9*y,"(B,D)"); 
outtextxy(67*x/2,25*y/4,"(2)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(30*x,5*y);  lineto(30*x,13*y/2); 

setlinestyle(3.0,3); 

setcolor(  forecolor) ; 

moveto(30*x.5*y);  lineto(30*x,13*y/2);  /*  add  (B,  D)  to  T  */ 
setlinestyle(0.0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(64*x,9*y,"2"); 

outtextxy(70*x,  1 0*y,"E" ); 
outtextxy(70*x,l  1  *y,"F"); 
outtextxy(75*x,10*y,"E  <-  3"); 
outtextxy(84*x,  lO*y,"(D.E)"); 

outtextxy(43*x,13*y/2,"(3)"); 
outtextxy(75*x,l  l*y,"F  <-  3"); 
outtextxy(84*x,l  1  *y,"(D,F)"); 
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outtextxy(29*x,17*y/2,"(3}"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

mo  veto(30*x.  1 3 *y/2);  lineto(30*x,8 *y ); 
moveto(30*x.l3*y/2);  lineto(40*x,l3*y/2); 
setlinestyle(3,0,3); 
setcolor(forecoIor); 

moveto(30*x,l  3*y/2);  lineto(30*x,8*y);  /*  add  (D,  F)  to  T  */ 

moveto(30*x,13*y/2);  lineto(40*x,13*y/2);  /*  add  (D,  E)  to  T  */ 
setlinestyle(0.0,3); 

Pause(30*x,24*y), 
setcoloi  (backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 
outtextxy(64*x,  1 0*y,"3"); 

^*  **********************************■"< -T*******************************^ 


outtextxy(70*x,  1 2*y,"G"); 
outtextxy(75*x,12*y,"G  <-  4"); 
outtextxy(84*x,  1 2*y  ,"(E,G)" ); 
outtextxy(43*x,3  l*y/4,"(4)"); 

Pause(30*x,24*y); 
setcolor(  backcolor ) ; 

moveto(40 *x ,  1 3  *y/2 ) :  lineto(40  *x  ,8  *y ); 
setlinestyle(3 ,0,3 ); 
setcolor(  forecolor); 

moveto(40*x,13*y/2);  lineto(40*x,8*y);  /*  add  (E,  G)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolorl  backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 
outtextxy  (64*x,  1 2*y  ,"4” ); 

^*  *******************************************************************/ 


outtextxy(70*x,13*y,"H"); 
outtextxy(70*x,14*y,"I"); 
outtextxy(75*x,13*y,"H  <-  5"); 
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outtextxy(84*x,13*y,"(G,H)"); 
outtextxy  (52  *x  ,8  *y ,  "(5 )" ); 
outtextxy(75*x,14*y,"I  <-  5"); 
outtextxy(84*x,l4*y,"(G,I)"); 
outtextxy(39*x,10*y,"(5)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(40*x,8 *y );  Iineto(50*x,8 *y ); 

moveto(40*x,8*y);  lineto(40*x,19*y/2); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(40*x,8*y);  lineto(50*x,8*y);  /*  add  (G,  H)  to  T  */ 

moveto(40*x.8*y):  lineto(40*x,19*y/2);  /*  add  (G,  I)  to  T  */ 
setlinestyle(0.0,3); 

Pause(30*x,24*y ); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 
outtextxy(64*x,l  3*y,"5"); 

/*****:4c**:f<*****************%**%**********:4<:4<%*********%**************4y 

outtextxy(70*x,15*y,"JM); 
outtextxy(75*x,15*y,"J  <-  6"); 
outtextxy(84*x,15*y,"(H,J)"); 
outtextxy(46*x,9*y,"(6)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(50*x,8*y);  lineto(50*x,19*y/2); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

tnoveto(50*x,8*y);  lineto(50*x,19*y/2);  /*  add  (H,  J)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(  backc  olor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 
outtextxy(64*x,15*y,"6"); 
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outtextxy(70*x,l6*y,"K"); 

outtextxy(70*x,17*y,"L”); 


outtextxy(75*x,16*y,"K  <-  7"); 
outtextxy(84*x,16*y,"(J,K)"); 


outtextxy(56*A,9*y,”(7)"); 
outfextxy(75*x,l7*y,"L  <-  7"); 
outtextxy(84*x,17*y,"(J,L)"); 
outtextxy(49*x,23*y/2,"(7 )" ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(50*x.  1 9*y/2 );  lineto(60*x,  1 9*y/2); 
iik)vcU>(50*x.I 9*y/2);  lineto(50*x,l  1  *y); 
setlinestyle(3.0,3); 
setcolorl  forecolor); 

mov  jto(50*x.l9*y/2);  lineto(60*x,19*y/2);  /*  aud  (J,  K)  to  T  */ 

moveto(50*x.l9*y/2);  lineto(50*x,ll*y),  /*  add  (J,  L)  to  T  */ 
setluiestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(  backcolor): 
bar(29*x.23*y,50*x,49*y/2); 
setcolorl  forecolor); 
outtextxy(64*x,16*y,''7"); 


outtextxy(70*x,  1 8*y  ,”M” ); 
outtextxy(75*x,18*y,"M  <-  8"); 
outtextxy(84*x,18*y,"(K>M)"); 
outtextxy(56*x,23*y/2,"(8)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(60*x,19*y/2);  lineto(60*x,l  l*y); 

setlinestyle(3,0,3); 

setcoloit  forecolor); 

moveto(60*x,19*y/2);  linetof£>0*x,l  l*y); 

setlinestyle(().(),3); 

ouftextxy(64*x,l8*y,"8"); 


/*  add  (K,  M)  to  T  */ 
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Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolor(forecolor); 
outtextxy(65*x,20*y,"We  are  done."); 

/************« *************** ****** **********************************/ 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again*/ 

bar(3  *x/2, 1 7*y/4, 1 79*x/2,49*y/2); 

setcoloitforecolor); 

y**************  *****************,,,,,,3,,,,, 

pieslice(20*x,5*y, 0,359,2);  /*  A  */  /*  re  Iraw  the  graph  */ 

pieslice(30*x.5*y,0,359,2);  /*  B  */ 

pieslice(20*x.  1 3*y/2,0,359,2);  /*  C  */ 

pieslice(30*x,13*y/2,0,359,2);  /*  D  */ 

pieslice(40*x.  13 *y/2,0, 359,2);  /*  E  */ 

pieslice(30*x.8*y, 0,359,2);  /*  F  */ 

pieslice(40*x,8*y ,0.359,2);  /*  G  */ 

piesUce/50*x.8*y,0,359,2);  /*  H  */ 

pieslice(40*x,  1 9*y/2,0, 359,2);  /*  I  */ 

pieslice(50*x,19*y/2,0,359,2);  /*  J  */ 

pieslice(60*x,19*y/2,0,359,2);  /*  K  */ 

pieslice(50*x,  1 1  *y,0,359,2);  /*  L  */ 

pieslice(60*x,  1 1  *y, 0,359, 2);  /*  M  */ 

outtextxy(20*x,9*y/2,"A"); 

outtextxy(30*x,9*y/2,"B"); 

outtextxy(L8*x,l3*y/2,"C"); 

outtextxy(3 1  *x,25*y/4,"D"); 

ou*textxy(41*x,13*y/2,"E"); 

outtextxy(28*x,8*y,"F"); 

outtextxy(41  *x,3 1  *y/4,"G"); 

outtextxy(51*x,8*y,"H"); 

outtextxy(  38  *x ,  1 9*y/2,’T'); 

outtextxy(5 1  *x,37*y/4,"J"); 

outtcxtxy(60*x,9*y,"K"); 
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outtextxy(48*x.l  l*y,"L"); 
outtextxy(60*x,23  *y/2,"  M" ); 

^***^****************1<**!|t***:|<!)C*<!|<**#****%*!|«****%!(!#!(t3(r%**!|l**#:(<!K**!(tHt***:(<!|t*y 

moveto(20*x,5*y);  lineto(30*x,5*y);  lineto(30*x,8*y); 

lineto(50*x,8*y);  lineto(50*x,  1  l*y);  lineto(60*x,ll*y); 
moveto(20*x.5*y);  lineto(20*x,13*y/2);  lineto(40*x,13*y/2); 
lineto(40*x,19*y/2);  lineto(60*x,  19’4‘y/2);  lineto(60*x,ll*y); 

) 

static  void  confinn_exit(void) 

( 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,2i*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

whde  (!((ch  ==  ’y’)  M  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n”); 
ch  =  getch  (); 

if((ch  ==  "y ’)  II  (ch  ==  ’n’)l!  (ch  ==  ’Y’)l!  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

) 

switch  (ch)  ( 
case  ’y’:  in_fhe_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4b*x,37  *y/2, 1 79*x/2,22*y ); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 
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bar(46*x,37*y/2.179*x/2,22*y); 

setcolor(  forecolor); 

break; 

default :  break; 

1 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  qs422.c 
:  Atilla  BAKAN 
:  Apr.  7, 1990 
:  Apr.  7, 1990 


DESCRIPTION  :  This  program  contains  the  second  exercise  about  the 
spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#defme  ffblk  find_t 

#define  ff_name  name 

#elif  defined(_ZT C _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#defme  ff_attrib  attribute 

#endif 
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^define  _G  RAPH_T_D  EFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

/ft****************]! k************************************* ************** *^ 


/*  miscellaneous  global  variables  */ 

/**********************************************************************/ 
int  in_the_exercise  =  1; 


/*  graphic  initialization  variables  */ 

/**********************************************************************/ 

int  curr_mode; 

int  graphdriver, 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor, 

int  quitcolor, 

int  x,  y,  MaxX,  MaxY; 
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^************************************************************* *********/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

I********************************************************************** I 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


J*4 *********************************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

^********************************* ******************************* ******j 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

initgraph(&graphdriver,&graphmode, " ") ; 
graph_error  =  graphresult(); 

/*********************************************************************/ 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

I******************************* ************************************* i 

MaxX  =  getmaxx(); 

MaxY  =  getmaxy(); 
x  =  MaxX/80; 
y  =  MaxY/25; 

//*******************  ***************************  *********** ****** *****! 
settext(); 

I****************************** ************************************ **j 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillsty  le(SOLID_FILL)  BLACK) ; 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLID_HLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 

y**********************************************************************/ 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  { 
case  ’y’:  closegraphQ; 
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videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegraphQ; 
videoinitO; 
exit(0); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setco!or(forecoIor) ; 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(forecoIor) ; 
break; 

default :  break; 

) 

hidecurO; 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


^****************:*^****************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

/***************4^*****************************************************/ 

static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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/**********************************************************************/ 

/*  Equivalent  of  prcss_a_key  function  for  graphics  screen  */ 

/********************************************************%i<************/ 

void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm _graph_exit(); 

} 


y^*******************************  *****************************  **********/ 

/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************/ 

void  main() 

( 

exer(); 


} 
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/************* 1^**************** ************************* ***************/ 
/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/**********************************************************************/ 
static  void  exer(void) 

{ 

char  Ch; 


init__graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  2"); 

outtextxy(2*x,2*y,"IJse  the  breadth  first  search  algorithm  to  find  a  spanning  tree"); 
outtextxy(2*x,3*y, "(Start  at  A.  If  there  is  a  choice  of  edges  select  edges  according 
to"); 

outtextxy(2*x,4*y, "alphabetical  order.)"); 
pieslice(25*x,5*y,0,359,2);  /*  A  */ 

pieslice(25*x,  1 1  *y, 0,359,2);  /*  B  */ 

pieslice(55*x,5*y,0,359,2);  /*  C  */ 

pieslice(55*x,  1 1  *y,0,359,2);  /*  D  */ 

pieslice(35*x,7*y ,0,359,2);  J*  E  */ 

pieslice(45*x,7*y,0,359,2);  /*  F  */ 

pieslice(35*x,9*y,0,359,2);  /*  G  */ 

pieslice(45*x,9*y,0,359,2);  /*  H  */ 

outtextxy(25*x,9*y/2,"A"); 
outtextxy(25*x,23*y/2,"B"); 
outtextxy(55*x,9*y/2,"C"); 
outtextxy(55*x,23*y/2,"D"); 
outtextxy(33*x,7*y,"E"); 
outtextxy(46*x,7*y,"F"); 
outtextxy(33*x,9*y,"G"); 
outtextxy(46*x,9*y,"H"); 

moveto(55*x,ll*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*x,l  l*y);  lineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 
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lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 
moveto(25*x,5*y);lineto(35*x,7*y); 
while  (in_the_exercise  =  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  0; 

if(Ch==ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirrn_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

} 

) 

switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2, 1 79*x/2,2 1  *y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

show_alg(); 

break; 

case  ’b’:  outtextxy(47*x,19<,y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
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outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

seteolor(backcolor); 

bar<50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y,"solution.  So  press  any  key  to  "); 
outtextxy(52*x,21*y,  "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
break; 

default  :  break; 

} 

} 

closegraph(); 

} 
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/ft********************* « **************************** ****** *************y 


/*  This  routine  gives  breadth  first  search  spanning  tree  algorithm  */ 

/♦♦♦a******************************************************************/ 


static  void  show_alg(void) 

( 

outtextxy(15*x,12*y, "BREADTH  FIRST  SEARCH  SPANNING  TREE 

ALGORITHM"); 

outtextxy(2*x,13*y,"Step  1  (start  with  a  vertex).  Pick  a  vertex  U  and  assign  U  the 
label  0."); 

outtextxy(2*x,14*y,"Let  L  =  {  x  },  T  =  0,  and  k  =  0."); 
outtextxy(2*x,15*y,"Step  2  (L  has  n  vertices).  If  L  contains  all  the  vertices  of  G, 
then  stop;"); 

outtextxy(2*x,16*y,"the  edges  in  T  and  the  vertices  in  L  form  a  spanning  tree  for 


G."); 


outtextxy(2*x,17*y,"Step  3  (L  has  fewer  than  n  vertices).  If  L  does  not  contain  all 
the  vertices"); 

outtextxy(2*x,18*y,"of  G,  find  the  vertices  not  in  L  that  are  adjacent  to  the  vertices 
in  L  with"); 

outtextxy(2*x,19*y,"largest  label  number  k.If  there  are  no  such  vertices.G  has  no 
spanning  tree."); 

outtextxy(2*x,20*y,"Otherwise,  assign  these  newly  found  vertices  the  label  k  +  1 
and  put  them  in"); 

outtextxy(2*x,21*y,"in  L.  For  each  new  vertex  with  label  k  +  1,  place  in  T  one  edge 
connecting  "); 

outtextxy(2*x,22*y,"this  vertex  to  a  vertex  with  label  k.  If  there  is  more  than  one 
such  edge,"); 

outtextxy(2*x,23*y, "choose  one  arbitrarily.  Return  to  Step  2."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

} 
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/**********************************************************************/ 
/*  This  routine  gives  the  solution  to  the  exercise  to  be  cc  spared.  */ 

/** *********4^*4^*********4^********** ************************** *******/ 

static  void  compare_solutions(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,47*y/4, 179*x/2,49*y/2); 

moveto(45*x,9*y);  lineto(55*x,ll*y);  lineto(25*x,l  l*y); 

lineto(25*x,5*y);  lineto(55*x,5*y); 

moveto(35*x,9*y);  lineto(35*x,7*y);  lineto(45*x,7*y); 

moveto(25*x,5*y);  lineto(35*x,7*y); 

se  tcolor(  forccolor) ; 

setlinestyle(3,0,3); 

outtextxy(27*x,9*y/2,"(0)");  /*  A  */ 

outtextxy(22*x,l  l*y,"(l)");  /*  B  */ 

outtextxy(56*x,5*y,"(l)");  /*  C  */ 

outtextxy(36*x,  1 3*y/2,"(  1 )”);  /*  E  */ 

outtextxy(56*x,  1 1  *y,"(2)");  /*  D  */ 

outtextxy(43*x,13*y/2,"(2)");  /*  F  */ 

outtextxy(36*x,19*y/2,"(2 )");  /*  G  */ 

outtextxy(47*x,9*y/'(3/'V  /*  H  */ 

moveto(45*x,9*y);  lineto(55*x,  1 1  *y);  lineto(25*x ,  1 1  *y); 
lineto(25*x,5*y);  lineto(55*x,5*y); 
moveto(35*x,9*y);  lineto(35*x,7*y);  lineto(45*x,7*y); 
moveto(25*x,5*y);  lineto(35*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,70*x,49*y/2); 
bar(2*x,17*y/4,179*x/2,49*y/2); 
setcolor(forecoIor) ; 

pieslice(25*x,5*y,0,359,2);  /*  A  */  /*  redraw  the  figure  */ 

pieslice(25*x,  1 1  *y  ,0,359,2);  /*  B  */ 

pieslice(55*x,5*y,0,359,2);  /*  C  */ 

pieslice(55*x,  1 1  *y, 0,359,2);  /*  D  */ 
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pieslice(35*x,7*y,0,359,2);  /*  E  */ 

pieslice(45*x,7*y,0,359,2);  /*  F  */ 

piealice(35*x,9  ',y,0, 359,2);  /*  G  */ 

pieslice(45*x,9*y,0,359,2);  /*  H  */ 

outtextxy(25*x,9*y/2,"A"); 

outtextxy(25*x,23*y/2,"B"); 

outtextxy(55*x,9*y/2,"C"); 

outtextxy(55*x,23*y/2,"D"); 

outtextxy(33*x,7*y,"E"); 

outtextxy(46*x,7*y,"F"); 

outtextxy(33*x,9*y,"G"); 

oirrextxy(46*x,9*y,"H"); 

mcveto(55*x,l  l*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*xIl  l*y);  iineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y),  lineto(35*x,7*y);  lineto(35*x,9*y); 
lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 


807 


u 


y**********************************************  *******  ********>1 <********/ 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/**********************************************************************/ 


static  void  step_solution(void) 

{ 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 


/********************************************************************! 


outtextxy(64*x,5*y,"k"); 
outtextxy(70*x,5*y,"L"); 
outtextxy(75*x,5*y, "Label"); 
outtextxy(86*x,5*y,"T"); 
moveto(62*x,  1 1  *y/2);  lineto(67*x,  1 1  *y/2); 
moveto(68*x,l  l*y/2);  lineto(73*x,l  l*y/2); 
moveto(74*x,l  l*y/2);  lineto(165*x/2,l  l*y/2); 
moveto(84*x,l  l*y/2);  lineto(89*x,l  l*y/2); 

/******************************* ************************* ************/ 


outtextxy(70*x,6*y,"A"); 
outtextxy(64*x,6*y,"0"); 
outtextxy(75*x,6*y,"A  <-  0"); 
outtextxy(27*x,9*y/2,"(0)"); 

^******* ********************************************* ****************^ 


Pause(30*x,24*y); 
outtextxy(70*x,7*y,"B"); 
outtextxy(70*x,8*y,"C"); 
outtextxy(70*x,9*y,"E"); 
outtextxy(75*x,7*y,"B  <-  1"); 

outtextxy(84*x,7*y,"(A,B)"); 

outtextxy(22*x,l  l*y,"(l)"); 
outtextxy(75*x,8*y,"C  <-  1"); 
outtextxy(84*x,8*y,"(A,C)"); 
outtextxy(56*x,5*y,"(l)"); 
outtextxy(75*x,9*y,"E  <- 1"): 
outtextxy(84*x,9*y,"(A,E)"); 
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outtextxy(36*x,13*y/2,"(l)"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
moveto(25*x,5*y);  lineto(25*x,l  l*y); 
moveto(25*x,5*y);  lineto(55*x,5*y); 
moveto(25*x,5*y);  lineto(35*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(25*x,5*y);  lineto(25*x,ll*y);  /*  add  (A,  B)  to  T  */ 
moveto(25*x,5*y);  lineto(55*x,5*y);  /*  add  (A,  C)  to  T  */ 
moveto(25*x,5*y);  lineto(35*x,7*y);  /*  add  (A,  E)  to  T  */ 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(64*x,7*y,"l"); 

/********************************************************************/ 

Pause(30*x,24*y); 

outtextxy(70*x,10*y,"D"); 

outtextxy(70*x,l  l*y,"F"); 

outtextxy(70*x,  1 2*y,"G"); 

outtextxy(75*x,10*y,"D  <-  2"); 

outtextxy(84*x,10*y,"(BJ))"); 

outtextxy(56*x,l  l*y,"(2)"); 

outtextxy(75*x,l  l*y,"F  <-  2"); 

outtextxy(84*x,l  l*y,"(E,F)"); 

outtextxy  (43  *  x,  1 3  *y/2,"  (2) " 

outtextxy(75*x,12*y,"G  <-  2"); 

outtextxy(84*x,  1 2*y,"(E,G)"); 

outtextxy(36*x,19*y/2,"(2)"); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 

moveto(25*x,l  l*y);  Iineto(55*x,l  l*y); 
moveto(35*x,7*y);  lineto(45*x,7*y); 
moveto(35*x,7*y);  lineto(35*x,9*y); 
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setlinestyle(3,0,3); 
setcolor(forccolor) ; 

moveto(25*x,l l*y);  lineto(55*x,l  l*y);  /*  add  (B,  D)  to  T  */ 
rnoveto(35*x,7*y);  lineto(4j*x,7*y);  /*  add  (E,  F)  to  T  */ 
moveto(35*x,7*y);  lineto(35*x,9*y);  /*  add  (E,  G)  to  T  */ 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(64*x,10*y,"2"); 

y********************************************************************/ 

outtextxy(70*x,13*y,"H"); 

outtextxy(75*x,13*y,"H  <-  3"); 

outtextxy(84*x,13*y,"(D3)"); 

outtextxy(47*x,9*y,"(3)"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
moveto(55*x,l  l*y);  lineto(45*x,9*y); 
setlinestyle(3,0,3); 

setcolor(forecolor) ; 

moveto(45*x,9*y);  lineto(55*x,  1 1  *y);  /*  add  (D,  H)  to  T  */ 

setlinestyle(0,0,3); 

outtextxy(64*x,  1 3  *y,  "3 "); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 
outtextxy(65*x,20*y,"We  are  done."); 

y************************** **************** **************************/ 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(3*x/2,17*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

y********************************************************************y 

pieslice(25*x,5*y,0,359,2);  /*  A  */ 
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pieslice(25*x,ll*y, 0,359,2);  /*  B  */ 

pieslice(55*x,5*y,0,359,2);  /*  C  */ 

pieslice(55*x,  1 1  *y, 0,359,2);  /*  D  */ 

pieslice(35*x,7*y,0,359,2);  /*  E  */ 

pieslice(45*x,7*y,0,359,2);  /*  F  */ 

pieslice(35*x,9*y,0, 359,2);  /*  G  */ 

pieslice(45*x,9*y,0,359,2);  /*  H  */ 


y**%**%4^*******4^************************************* ****** *********/ 


outtextxy(25*x,9*y/2,"A"); 

outtextxy(25*x,23*y/2,"B"); 

outtextxy(55*x,9*y/2,"C"); 

outtextxy(55*x,23*y/2,"D"); 

outtextxy(33*x,7*y,"E"); 

outtextxy(46*x,7*y,"F"); 

outtextxy(33*x,9*y,"G"); 

outtextxy(46*x,9*y,"H"); 

/*********************************************************************/ 


moveto(55*x,ll*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*x,l  l*y);  lineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 
lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 
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static  void  confirm_exit(void) 

{ 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit. "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,2 1  *y,"Type  y  or  n  — >"); 
ch  =  getch  0; 

while  (!((ch  =  ’y’)  «  (ch  =  V)  II  (ch  =  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  0; 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  *N’)) 
setcolor(backco!or); 
bar(50*x,22*y,  179*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  *Y’:  in_the_exercise  =  0; 
break; 

case  V:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

} 
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/*  PROGRAM  :  depth. c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  16,  1990 

REVISED  :  Mar.  16,  1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  depth  first  search 
algoritm. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <process.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  ’’cxlstr.h” 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff__nanie  name 
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attribute 


#define  ff_attrib 
#endif 

#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  movejwindow  (int  nsrow,  int  scol); 

static  void  nonnal_exit  (void); 

static  void  press_a_key  (int  wrow); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  pre_help  (void); 

static  void  quit  window  (void); 

static  void  restore_cursor(void); 

static  void  short  delay  (void); 

static  void  size_window  (int  nerow,int  necol); 

/*  Tutorial  procedures  */ 

static  void  complexity  (void); 
static  void  depthjfirst  (void); 
static  void  ex_depth_l  (void); 
static  void  theorem_4_8  (void); 
static  void  proof_4_8  (void); 
static  void  definition_4_3_l(void); 
static  void  ex_depth_2  (void); 
static  void  exercises  (void); 
static  void  exerl  (void); 

static  void  exer2  (void); 

static  void  PI  (void); 
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stalic  void  P2  (void); 

static  void  P3  (void); 

static  void  P4  (void); 

static  void  P5  (void); 

static  void  P6  (void); 

static  void  P7  (void): 

static  void  P8  (void); 

static  void  P9  (void); 


H <************** 


******************************************************* 


7 


/*  miscellaneous  global  variables  */ 

^**********************************************************************^ 
static  int  *savescm,crow,ccol; 
static  WINDOW  w[10J; 
static  char  ssan[10]; 


^**********************************************************************^ 
/*  error  message  table  */ 

/**********************************************************************/ 
static  char  *error_text[]=  { 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  ==  1,  windowing  error  */ 

"Syntax:  CXLDEMO  [-switches]\n\n" 

'V  -c  =  CGA  snow  eliminationVi" 

"\t  -b  =  BIOS  screen  writingW 

"\t  -m  =  force  monoclirome  text  attributes", 

"Memory  allocation  error" 

I; 


^************* ********************************************* ************/ 
/*  miscellaneous  defines  */ 

^**********************************************************************^ 


#define  SHORT_DELAY  18 
#define  H  WINTITLE  33 
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y**********************************************************************/ 

/*  this  function  will  add  a  shadow  to  the  active  window  */ 

y%^*******!|<**!(t**j(C**j(<**!(l*l(<!|<**%*%****************l(l***  +  !((l|<*****l(»****!(<**^t*](l*y 

static  void  add_shadow(void) 

I 

wshadow(LGREYI_BLACK); 

} 

y************************************#*********************************/ 
/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 

static  void  confirm  quit(void) 


struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,26,13,55,0,WHITE!_BROWN,WHITELBROWN))  error_exit(l); 
add_shadow( ): 

wputs(”\n  Quit  demo,  are  you  sure?M)33A\156Y\b"); 

clearkeysO; 

showcurQ; 

if(wgetchf("YN",'Y’)==’Y’)  normal_exit(); 

wclose(); 

hidecurQ; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 


y*****************+****************************************************y 

/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

y*************************************************i|«*********!|i******:tc***y 

static  void  disp_sure_msg(void) 

I 

wprints(0,2,WHlTEI_BLUE,’’Are  you  sure?"); 

I 
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/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1 ,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

^************************************************ ************* *********/ 


static  void  error_exit(int  ermum) 

I 

if(ermum)  { 

printf('V%s\n",(ermum==l)?wermisg():error_text[errnum]); 

exit(ermum); 


) 


/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

/*******************+**************************************************/ 
static  void  initialize(void) 


I 

/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinit(); 

readcur(&crow,&ccol); 
if((savescm=ssave())==NULL)  error_exit(3); 


/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  ( 

tnssupport(MSJFULL); 
msgotoxy(  12,49); 

} 

/*  attach  [Alt-X]  to  the  confirm_quit()  function  */ 
setonkey(0x2d00,confirm_quit,0); 

/*  attacli  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400, Pageup, 0); 

/*  attach  [Ctrl  Pagedown]  to  the  PagedownQ  function  */ 
setonkey(0x7600,Pagedown,0); 
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/*  initialize  help  system,  help  key  =  [FI]  */ 

whelpdef("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED, 

WHITEI_RED,REDI_LGREY,pre_help); 

I 


/**********************************************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

static  void  Pageup(void) 


static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  -  1); 

) 


^rfr********************************************************************/ 

/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

static  void  Pagedown(void) 

I 

static  WINDOW  handle; 

handle  =  whandle(); 
wactiv(handle  +1); 

I 


/*****★★*******♦********* 


***  +  **  +  +  *  +  *  +  **  +  *  +  *i<  +  +  *****  +  +  *****>f*******  +  +  *  +  *y 


static  void  pre_help(void) 

I 

add_shadow( ); 

setonkey(0x2d00,confirm_quit,0); 

I 
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/%**:f4'*******%*%****%*%**%**%*%*******%******3('**Jf<:t'*’l'3t'****’l<:f':f<*’|c’l<***’f<3k***y 

/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

static  void  normal_exit(void) 

I 

srestore(savescm); 
gotoxy_(crow  ,ccol ); 
if(_mouse)  mshidecur(); 
showcm(); 
exit(.0); 


/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

static  void  press_a_key(int  wrow) 

I 

register  int  attrl; 
register  int  attr2; 

attrl=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo. active ->wattr»4)«4); 
wcenters(wrow, attrl /’Press  a  key"); 
wprints(wiow,0,LGREYI_RED,"Pgup/Pgdn’’); 
hidecur(); 

if(waitkey(  )==ESC)  confirm_quit(); 
wcenters(wrow, attrl,"  "); 

wprints(wrow.0,attr2,"  "); 

I 

y*******************************************************************:,.**/ 

/*  This  routine  causes  short  dealys  during  execution  */ 

y*  +  ***  +  ***  +  *  +  ******  +  **  +  +  *  +  +  *  +  +  *  +  *  +  +  +  ******  +  **  +  **  +  +  *  +  ***  +  ***  +  +  +  *  +  **4<  +  ***.y 

static  void  short_delay(void) 

I 

delay  _(SHORT_DELAY); 


^* *********************************************************************/ 
/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  fQJuit  menu  items.  */ 

y*  ***************************************** V ***************************/ 

static  void  quit_window(void) 

I 

static  WINDOW  handle=0; 

if(handle)  { 
w  act  iv  (handle); 
wclose(); 
han'*le=0; 


else  { 

handle=wopen(  14,4 1, 17, 70,0,  YELLOWI_RED,WHITELRED); 
wputs("  Quit  takes  you  back  to  the\n  demo  program's  main  menu."); 


} 

/*************************************************************:f'*>l<*****!iy 

/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

static  void  restore_cursor(void) 

I 

wtextattr(WHITEI.  MAGENTA); 
showcur(); 


f*  enlarges  or  shrinks  the  win  ws  */ 

static  void  size_window(int  nerow.int  necol) 


wsize(nerow,necol); 

short_delay(); 

} 
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/*  moves  the  active  window  to  a  given  screen  coordinates  */ 

static  void  move_window(hit  nsrow,int  nscol) 

I 

if(  wmove(nsrow, nscol ))  error_exit(  1 ); 

sliort_delayO; 

} 

/**********************************-***********************************/ 
/*  this  routine  calls  depth_first()  routme  whenever  Pageup  or  Pagedov'n  */ 

,'*  keys  ate  pressed.  */ 

I*  ************  ********************************************************■</ 

void  Pl() 

I 

wcloseall(); 

depth_first(); 

} 

y^*********************************************************************^ 

/*  this  routine  calls  ex_depth_l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/♦♦♦^itc*****************************************************************/ 

void  P2() 

{ 

wcloseall(); 

ex_depth_l(); 

I 


y'**********************************************************************^ 
/*  this  routine  calls  ex_depth_2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^****4+****#J|<i(<********  +  ***j(t******>(<*J(<***+***+#  +  ****J(t***i(l***J|l***>(<i(l>|c***  +  *+^ 

void  P3() 

I 

wcloseall(); 

ex_depth_2(); 

I 
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/*  this  routine  calls  theorem_4_8  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/********************************************* *************************y 

void  P4() 

I 

wcloseallO; 

theorem_4_8(); 

} 

/★fr********************************************************************/ 

/*  this  routine  calls  defmition_4_3_l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/************  ***********  ***************************  *  *  ******  **  ***  *  *  *  **  **/ 
void  P5() 


wcloseallO; 

definition_4_3_l(); 


} 

I**********************************************************************/ 

/*  this  routine  calls  complexity  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^*********************************************************************3ty 

void  P6() 

I 


wcloseallO; 

complexityO; 


********************************************************************* 


*/ 


*/ 

V 


/*  this  routine  calls  exercises  routine  whenever  Pageup  or 
/*  Pagedown  keys  are  pressed. 

^***************** ******************* *****************  *****************^ 
void  P7() 

I 


wcloseallO; 

exercises!); 
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y************************ **********************************************/ 

/*  this  routine  calls  exerl  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P8() 

( 

wcIoseall(); 

exerl(); 

> 


^3|e  3f<  3fc  4c  ifc  3(<  %  ******  ***  *********  i***************  *  *******  ****  *******  J***********^ 

/*  this  routine  culls  exer2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************/ 

void  P9() 


wcloseallQ; 

exer2(); 

) 


^a*********************************************************************/ 

/*  main  routine  which  is  calling  minimal  spanning  tree  tutorial  */ 

^******%**********************+****************************************^ 

void  main() 

I 

initialize!); 

depth_first(); 

} 
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^* *********+************★************%*******************%*********+***/ 
/*  This  routine  calls  definition,  example  and  algorithm  routines  about  */ 

/*  depth_first_search.  */ 

J************ ************************  l**********************************/ 

static  void  depth_first(void) 

( 

register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
cclrscm(LGREYIJBLUE); 

j********************************************************************j 

/*  attacli  [Pagedown]  to  the  ex_depth_l()  function  */ 


setonkey(0x5100,P2,0); 

I**** 


**************************************************************** 


/ 


if((w[  1  J=wopen(5 , 1 5 , 1 3 ,54,3  ,LC  Y  ANMBLACK  ,B  LACKI_C  Y  AN )  )==0 ) 
error_exit(l); 

wtitle("[Depth  First  Search]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  Depth  First  Search  algorithm  is  one  of  the  algorithms  that" 

"  are  used  for  finding  spanning  trees.  In  this  algoritlun  we" 

"  label  the  vertices  with  consecutive  integers.  The  underlying" 

"  idea  of  the  algorithm  is 
press_a_key(6); 
wslide(0,0); 

/************************ %******$******** ft***************************/ 

if((w[2]=wopen(2,15,23,54,3,LCYAN!_BLACK,BLACKI_GREEN))==0) 

error_exit(l); 

wtitle( "[Depth  First  Search]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcatf  H_WINTTTLE) ; 

wputsw("  Find  the  vertex  that  should  be  labeled  immediately  after" 

"  labeling  vertex  V,  the  first  vertices  to  consider  are  the" 

"  ones  adjacent  to  V.  If  there  is  an  unlabeled  vertex  W  adjacent" 

"  to  vertex  V,  W  is  assigned  the  next  label  number,  and  the" 

"  process  of  searching  for  the  next  vertex  to  label  is  begun" 
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"  with  W.  If  V  has  no  unlabeled  adjacent  vertices,  we  back  up" 

"  to  the  vertex  that  was  labeled  immediately  before  V  and  " 

"  continue  backing  up,  if  necessary,  until  we  reach  a  vertex" 

"  having  an  unlabeled  adjacent  vertex  U.  Vertex  U  is  then  assigned" 
"  the  next  label  number,  and  the  process  of  searching  for  the" 


"  next  vertex  to  label  is  begun  with  U."); 
press_a_key(19); 
wslide(0,40): 


if((w[3J=wopen(5, 15, 10,65, 3.LCYANIJB  LACK  ,BLACKI_RED))==0) 
error_exit(  1 ); 

wtitle("  (Depth  First  Search]",' TCENTER,_LGREYI BROWN); 

add_shadow(): 

whe  I  pcat(  H_  WINTTTLE ) ; 

wputs("V'); 

wputsw("  The  formal  specification  of  the  depth_first  search  algoritlim" 

"  is  as  follows  :"); 
press_a_key(3 ); 
short_delay(); 
wcloseallO; 

/********  *****************************************  *******  *****  +  ****:(<*/ 


if((w[l]=wopen(0,15,24,65,3,BLACKI_GREEN,BLACKLCYAN))==0) 

error_exit(l); 

wtitle("[Depth  First  Search  Algoritlim]", TCENTER,BLUEI_LGREY); 

add_shadow( ); 

wputs(”\n"); 

wputsw("  It  will  label  the  vertices  (1, ...  ,n)"); 
wputs("\n"); 

wputsw("  Step  1  .  Pick  a  vertex  x."); 
wputs("Vt  L  =  {  x  }  (list  of  vertices  in  the  tree)"); 
wputs("  T  =  0  (list  of  edges  in  the  tree)  "); 
wputs("Vi  x  <-  1  "); 

wputs("\n  k  <-  2  (counter)  W); 

wputsw("  Step  2  .  Pick  any  vertex  U  not  in  L,  such  that  U  is  adjacent" 

"  to  the  vertex  L  with  the  highest  label,  say  V.  "); 
wputs(”\n  L  =  L  U  (  U  }  "); 
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wputsOn  T  =  TU  (U,V)  "); 

wputj(‘Vi  U  <-  k  "); 

wputs('Vi  k  <-  k  +  1  \n"); 

wputs("  Step  3  .  a)  If  all  vertices  are  in  L,  stopW); 
wputs("  b)  If  not  all  vertices  are  in  L  W); 
wputsw("  1 )  If  there  exist  a  vertex  adjacent  not  in  L" 

"  which  is  adjacent  to  a  vertex  in  L,  go  to  Step  2"); 
wputs("\n"); 

wputsw("  2)  If  no  such  vertex  exists,  stop  and  output" 

"  that  the  graph  is  not  connected."); 
press_ajkey(22); 
ex_depth_l(); 
srestore(scrn); 


/*  An  example  about  a  Depth  First  Search  Algorithm  implementation  */ 

/***  +  +  +  ******  +  **  +  **  +  *******************************  +  *******■*!<;,*********/ 

static  void  ex_depth_l  (void) 

I 

/***************************** VV *************************************/ 

/*  attach  [Pageup]  to  the  depth_firstt./  junction  */ 
setonkey(0x4900,Pl  ,0); 

/***********+*************************************+***************** 

/*  attach  [Pagedown]  to  the  ex_depth_2()  function  */ 
setonkey  (0x5 1 00,P3 ,0); 

if((w[2]=wopen(5 , 1 5 , 1 0,65 ,3  ,LC  Y  ANI_BLACK  ,B  LACKI_RED))==0) 
error_exit(  1 ); 

wtitle("[Depth  First  Search  -  Example_4_3_l]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whe1pcat(H_WINTITLE); 

wputs(”Vi  We  need  to  show  an  example  !"); 

press_a_key(3 ); 

short_delay(); 


826 


wcloseallO; 

spawnl(P_WAlT."examp43 1  .exe",NULL); 
cclrsc  m(  LG  REY  l_B  LUE) ; 
ex_depth_2(); 

} 


/*  Another  example  about  a  Depth  First  Search  Algorithm  implementation  */ 

static  void  ex_depth_2  (void) 

I 

/ft*******************************************************************/ 

/*  attach  [Pageup]  to  the  ex_depth_l()  function  */ 
setonkey(0x4900,P2,0); 

^***********************************1(1********************************/ 

/*  attach  [Pagedown]  to  the  theorem_4_8()  function  */ 
setonkey(0x5 100,P4,0); 

if((w[3J=wopen(13, 15, 18,65, 3,LCYANI_BLACK3LACKI_RED))==0) 
error_exit(  l ); 

wtitle("[Depth  First  Search  -  Example_4_3_2]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WlNTlTLE); 

wputs(’Nn  Now  we  will  show  you  one  more  example."); 
wputsC^n  But  a  little  bit  complicated  !"); 
press_a_key(3); 
short_delay(); 

^♦♦fr*****************************************************************/ 

wcloseall(); 

spawnl(P_W  ATT, "examp432.exe", NULL); 
cclrscm(LGREY!_BLUE); 
theorem_4_8( ); 

I 
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y**********************************************************************y 

/*  Tliis  routine  gives  the  theorem_4_8  about  the  trees.  Besides,  if  the  user  */ 

/*  wants,  it  gives  the  proof  for  this  theorem.  */ 

y* ********************************************** ****************** *****y 

static  void  theorem_4_8(void) 

{ 

struct  _onkey_t  *kblist; 


y********************************************************************y 

/*  attach  [Pageup]  to  the  ex_depth_2()  function  */ 
setonkey(0x4900,P3,0); 

y********************************************************************y 


/*  attacli  [Pagedown]  to  the  definition_4_3_l()  function  */ 
setonkey(0x5 100,P5,0); 

y********************************************************************y 


if((w[  1  ]=wopen(5 , 1 5 , 1 0,65 ,3 ,WHTTEI_CY AN.REDI  JBLACK))==0)  error_exit(  1 ) ; 

wtitle("[Depth  First  Search]", TCENTER,_LGREYIBROWN); 

add_shadow( ): 

whelpcat(  H_  WINTITLE) ; 

wputsf'Vi  We  have  a  theorem  for  you!  "); 

press_a_key(3); 

wclosef); 


*/ 


if((w[l]=wopen(3,4,10,71,3,LCYANLGREEN,WHITELLGREY))==0) 

error_exit(l); 

wtitle("[Depth  First  Search  Algoritlim  -  Theorem_4_8]", 
TCENTER,_MAGENTAIWHTTE); 
add_shadow(); 
whelpcat(  H_WINTITLE ); 
wputs("Theorem_4_8Vi"); 

wputsw("  Let  the  depth  first  search  algoritlim  be  applied  to  a  graph  G"); 
wputsw("  (a)  The  edges  in  T  and  the  vertices  in  L  form  a  tree."); 
wputs(”vti"); 

wputsw("  (b)  Furthermore,  if  G  is  connected,  this  tree  is  a  spanning" 
tree.  ); 

press_a_key(5); 
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^*  ******************************************************************* f 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,20, 13,55,0,BROWNI_CYAN,REDI_BLACK))  error_exit(l); 
add_shadow(); 

wputs("\n  Do  you  want  to  see  the  proof?  \033A\156Y\b"); 

clearkeysO; 

showcur(); 

if(wgetchf("YN",’Y’)==’Y’)  ( 
wclose(); 
proof_4_8(); 

) 

else  wclose(); 
hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  ltidden  hot  keys  */ 

wclose(); 

definition_4_3_l(); 

) 


/if*********************************************************************/ 

/*  This  routine  gives  the  proof  to  the  theorem_4_8.  */ 

static  void  pioof_4_8(void) 


I*  attach  [Pageupj  to  the  ex_depth_2()  function  */ 
setonkey(0x4900,P3,0); 

j+iiii,*****#*  **********************************************************  I 

/*  attach  [Pagedown]  to  the  defmition_4_3_l()  function  */ 
setonkey(0x5 100,P5,0); 

j* * * ***************************************************************** ^ 

if((w[2]=wopen(ll,4,23,71,3,LCYANI_RED,WHITELGREEN))==0) 

error_exit(l); 
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w title( "  [Theorem_4_8  -  Proof]"  ,TCENTER,JdAG  ENT  Al  WHITE); 

add_shadow(); 

wheIpcat(H_WTNTITLE); 

wputs("Vn"); 

wputsw("  (a)  By  the  construction  process  of  depth  first  search,  the" 

"  edges  of  T  and  the  vertices  in  L  form  a  connected  graph" 

"  In  step  3  each  time  an  edge  is  selected  to  be  placed  in  T," 

"  one  vertex  is  in  L  and  the  other  is  not  in  L.  Thus,  this" 

"  selection  does  not  create  any  cycles  using  other  edges  in  T." 

"  Consequently,  at  the  end  of  the  depth_first_search  algorithm" 
"  the  graph  formed  by  the  edges  in  T  and  the  vertices  in  L  " 

"  contains  no  cycles  and  is,  therefore,  a  tree."); 
wputs(”\nThe  proof  of  part  (b)  is  left  as  an  exercise."); 
press_a_key(  10); 
wclose(); 

) 


/*  This  routine  gives  the  definitions  of  the  concepts  related  to  the  depth  */ 

/*  first  search  algorithm.  */ 


static  void  definition_4_3_l(void) 

{ 

/**+*  ***************************  jfr***********  ******  **********  ******  **Jty 

/*  attach  [PageupJ  to  the  theorem_4_8()  function  */ 
setonkey(0x4900,P4,0); 

/*******************************************************************+/ 


/*  attach  [Pagedown]  to  the  complexityQ  function  */ 
setonkey(0x5 100,P6,0); 

y********************************************************************^ 


if((w[l|=wopen(5,4,16,71,3,LCYANI_RED,BROWNI_CYAN))==0)error_exit(l); 

wtitle("[Definition4_3_l]",TCENTER,_MAGENTAIWHITE); 

add_shadow( ); 

whelpcat(H_WINTlTLE); 

wputs("^n"); 

wputsw("  Let's  call  the  tree  fonned  by  the  edges  in  T  and  the  vertices" 
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"  in  L  (after  depth  first  search  algorithm  applied)  as  simply  T."); 
wputs("\n  Tlie  tree  T  is  called  a  depth  first  search  tree.Vi"); 
wputsw("  The  edges  in  T  are  called  tree  edges  and  the  other  edges  are" 

"  called  back  edges."); 
wputs("\n"); 

wputsw("  The  labeling  of  the  vertices  is  called  a  depth  first  search" 

"  numbering."); 
wputs("\n"); 

wpuisw("  Consider  the  graph  in  the  example  we  showed  to  you  :"); 

press_a_key(9); 

wclose(); 

spawnl(P_W  AIT, "examp433.exe", NULL); 

cclrscrn(LGREYI_BLUE); 

complexityO; 

) 


/*  This  routine  tells  about  the  efficiency  of  the  depth  first  search  alg.  */ 

/************  +  ********>!<*  +  ********>(<**  +  *  +  **>|<***>f<*******!t<  +  ****  +  **  +  +  *******/ 

static  void  complexity(void) 


Z********************************************************************/ 


/*  attach  [Pageup]  to  the  definition_4_3_l()  function  */ 
setonkey(0x4900,P5,0); 

/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey(0x5 100,P7,0); 


/***************************************************************** 
if((w[l  ]=wopen(2,15,17,65,3,LCYANl_BLACK,WHITEI_MAGENTA))==0) 
error_exit(l); 


wtitle("lDepth  First  Search  -  Efficiency]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whe  lpcat(  H_  WI  NTfTLE ) ; 

wputs("\n"); 

wputsw("  In  order  to  analyze  the  complexity  of  the  depth  first  search" 

"  algorithm,  we  will  regard  labeling  a  vertex  and  using  an  edge" 
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"  as  the  elementary  operations.  For  a  graph  with  n  vertices  and" 

"  e  edges,  each  vertex  is  labeled  at  most  once  and  each  edge  is" 

"  used  at  most  twice,  once  in  going  from  a  labeled  vertex  to  an” 

"  unlabeled  vertex  and  once  in  backing  up  to  a  previously  labeled" 

"  vertex.  Hence,  there  will  be  at  most"); 
wputs(."\n  n  +  2*e  <=  n  +  2*l/2*n*(n  -1)"); 
wputsw("  operations,  and  thus  this  algorithm  is  of  order  at  most  nA2"); 
press_a_key(  1 3); 
wslide((),0); 

/******************************************************************* 
if((w[2]=wopen(5 , 1 5 , 1 4,65 ,3  ,LC  YANI_BLACK  ,BLACKI_CY  AN))==0) 
error_exit(l); 

wtitle("[Depth  First  Search]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs("\n"); 

wputsw("  Depth  first  search  can  be  used  in  many  other  ways  to  solve" 

”  problems  involving  graphs  and  directed  graphs.  But  at  ” 

"  this  stage  we  will  cover  only  this  much.  Because  our  " 

"  intention  is  only  to  give  you  an  idea  about  depth  first" 

"  search."); 
press_a_key(7); 
short_delay(); 
wcloseallO; 
exercisesO; 

} 
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/***♦  ***********************************.+  *****************. +  ************/ 
/*  This  routine  makes  a  small  quiz  about  the  depth  first  search.  */ 

^i**********************************************************************/ 

void  exercises(void) 

l 

register  int  *screen; 


^*!(l**!(<*******!(c*l(l^<*^C****^<!(<***l(<^l(l****l)l*#*#j(t^<*!t<**)|tJ(<  +  *****l((****  +  *********^ 

/*  attach  [Pageupl  to  the  complexity!)  function  */ 
setonkey  (0x4900 ,P6,0); 

^**  +  *>(C****j|c************j(t***l(<!(<******************j|<j|tj|lj|<j|t!t<*l|<*i)<j|t!(<j|t*********^ 


/*  attach  [PagedownJ  to  the  exerl()  function  */ 


setonkey(0x5 1 00,P8,0); 


if((w[  1  l=wopen(5 , 1 5 , 10,65,3  ,LCY  AN1_GREEN,WHITEI_RED))==0) 
error_exit(l); 

wtitIe(”lDepth  First  Search]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WTNTrTLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  We  have  completed  our  presentation  of  this  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  "); 
press_a_key(3); 
sliort_deIay(); 
wclose(); 

if((screen=ssave())==NULL)  error_exit(3);  { 
exerl(); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  { 

mssupport(MS_FULL); 
msgotoxy(  12,49); 

} 


I 


srestore(screen); 

I 
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/*  Dummy  function  to  call  the  actual  exercise  4.3.1  */ 

/**********************************************************************y 

static  void  exerl(void) 


I 

/i********************************************************************/ 

J*  attach  (PageupJ  to  the  complexity!)  function  */ 

setonkey(0x490(5,P6,0); 

/**********,  fc*******************************************************/ 


/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5 1 00,P9,0); 

1+  *  *  %  *  *  *  *  %  *  *  *  *  s|t  *  *  *  %  %  air  %  *  %  a|c  *  %  *  *  *  **  *  *  *  %  afc  *  *  *  *  *  *  *  *  *  ***  *  *  *  *  *  *  *  *  *  *  *  *  *  *  %  %  *  *  *  * 

if((wU  J=wopen(5,15,l0,65,3,LCYANI_GREEN,WHITEI_RED))==0) 
error_exit(  1 ); 


wtitleflDepth  First  Search]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow( ); 

wputs("Vi"); 

wputsw("  Here  is  the  first  question.  ”); 

press_a_key(3); 

wclosef); 

spawnl(P_WA!T,"q43 1  .exe"  ,NULL); 
c  cl  rscm(  LG  REY  l_B  LUE); 
exer2(); 


} 
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/t*********************************************************************^/ 

/*  Dununy  function  to  call  the  actual  exercise  4.3.2  */ 

/**************************************%*******************************/ 
static  void  exer2(  void) 

I 

^*  **+***********+****+****+************************* *****************/ 
/*  attach  [Pageup]  to  the  exerl()  function  */ 

setonkey  (0x4900 ,  P8 ,0 ) ; 

^ft*******************************************************************^ 

if((w[  1 1-wopen(5,l5,l0,65,3.LCYANI_GREEN,WHITEI_RED))==0) 
error_exit(  1 ); 

wtitleC’l Depth  First  Search]”, TCENTER._LGREYIBROWN); 

whelpcat(H_WINTLTLE); 

add_shadow( ): 

wputs("\n"); 

wputsw("  Here  is  the  second  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_W  AIT, "q432exe", NULL); 

cclrscm(LGREYI_BLUE); 

normal_exit(); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  examp431.c 
:  Atilla  BAKAN 
:  Apr.  18, 1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  depth  first 
search. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  *1 
#nclude  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_  findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  dr  fined  ( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 


836 


#define  _G  RAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  ini  _graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 
static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/**********************************************************************/ 
/*  graphic  initialization  variables  */ 

y************************** ************************************ ********^ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor, 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


y**********************************************************************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 
static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 
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/*> I.********************************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

^/*  ************************************************  *********************/ 


static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

^********************************************************************^ 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphxesult(); 

y*  ************************************************************** *****^ 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 


^/*  ***************************************************************  l*,;**^/ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  ii  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  [ 

setfillstyle(SOLID_FILL)BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE, 

} 
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/******************************************************** ********** ****/ 


static  void  confirm _graph_exit(void) 

{ 


struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  y)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  *N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  0; 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/♦♦★♦a*****************************************************************/ 


/*  This  function  sets  the  text  default  values  */ 

/*  *********************************************************************/ 
static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/ft*********************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

) 
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/**********************************************************************/ 
/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 

{ 

exer(); 

} 

/********^********************************** ***************** **********/ 
/*  This  routine  illustrates  an  implementation  of  depth  first  search  */ 

/**********************************************************************/ 
void  exer() 

{ 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXAMPLE  4-3-1 "); 

^* *******************************************************************/ 

pieslice(5*x,7*y,0,359,2);  /*  A  */ 

pieslice(10*x,7*y ,0,359,2);  /*  B  */ 

pieslice(35*x,7*y ,0,359,2);  /*  G  */ 

pieslice(20*x,4*y,0, 359,2);  /*  D  */ 

pieslice(20*x,  10*y,0,359,2);  /*  E  */ 

pieslice(20*x,3*y/2,0,359,2);  /*  C  */ 

pieslice(20*x,25*y/2,0,359,2);  /*  F  */ 

outtextxy(3*x,7*y,"A"); 

outtextxy(36*x,7*y,"G"); 

outtextxy(20*x/2,15*y/2,"B"); 

outtextxy(20*x,9*y/2,"D"); 

outtextxy(21*x,3*y/2,"C"); 

outtextxy(20*x,  19*y/2,"E"); 

outtextxy(2 1  *x,25*y/2,"F"); 

moveto(5*x,7*y);  lineto(10*x,7*y);  lineto(35*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,4*y);  lineto(10*x,7*y); 

moveto(5*x,7*y);  lineto(20*x,3*y/2);  lineto(20*x,4*y); 
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moveto(5*x,7*y);  lineto(20*x,10*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,25*y/2);  lineto(20*x,10*y); 
moveto(20*x,3*y/2);  lineto(35*x,7*y); 
moveto(20*x,4*y);  lineto(35*x,7*y); 
moveto(20*x,10*y);  lineto(35*x,7*y); 
moveto(20*x,25*y/2);  lineto(35*x,7*y); 


/********************************************************************/ 


outtextxy(45*x,2*y,"k"); 
outtextxy(48*x,2*y,"Vertex(V)"); 
outtextxy  (62*x,3  *  y/2,"  Adj "); 
outtextxy(59*x,2*y,"vertex(U)"); 
outtextxy(73*x,2*y,"LabelM); 
outtextxy(82*x,2*y,"L"); 
outtextxy(87  *x,2*y,  "T”) ; 
moveto(44*x,5*y/2);  lineto(47*x,5*y/2); 
moveto(48*x,5*y/2);  Iineto(58*x,5*y/2); 
moveto(59*x,5*y/2);  lineto(69*x,5*y/2); 
moveto(70*x,5*y/2);  lineto(80*x,5*y/2); 
moveto(81*x,5*y/2);  lineto(84*x,5*y/2); 
moveto(85*x,5*y/2);  lineto(90*x,5*y/2); 

outtextxy(2*x,14*y,"THE  WAY  WE  APPLIED  THE  ALGORITHM"); 
moveto(3*x/2,29*y/2);  lineto(43*x,29*y/2); 
/********************************************************************/ 


outtextxy(2*x,15*y,".  Initially  pick  (arbitrarily)  A  and"); 
outtextxy(2*x,16*y,"  put  it  in  vertex(V)."); 

Pause(30*x,24*y); 

ouitextxy(52*x,3*y,"A"); 

/********************************************************************/ 


outtextxy(2*x,17*y,".  Label  A  with  1  (As  you  see,  we  will"); 
outtextxy(2*x,18*y,"  show  the  label  in  paranthesis  near"); 
outtextxy(2*x,19*y,"  the  vertex."); 

Pause(30*x,24*y); 
outtextxy(72*x,3*y,"A  <-  1"); 
outtextxy(2*x,13*y/2,"(l)"); 

I****************************************** ****** *****4:**************  I 

outtextxy(2*x,20*y,".  Put  A  in  L."); 
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Pause(30*x,24*y); 

outtextxy(82*x,3*y,"A"); 

y*  I*******************************************************************/ 

outtextxy(2*x,21*y,".  Increment  k."); 

Pause(30*x,24*y); 

outtextxy(45*x,4*y,"2"); 

/4^******************************************************************/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,50*x,24*y); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(forecolor); 

/*********************************+********************+*******+**+**/ 
outtextxy(2*x,15*y,".  Now  pick  F  since  it  is  unlabeled  and"); 
outtextxy(2*x,16*y,"  adjacent  to  A  (currently  largest  labeled)."); 

Pause(30*x,24*y); 

outtextxy(52*x,4*y,"A"); 

outtextxy(63*x,4*y,"F"); 

/*****< c************* ***************************  **********************/ 

outtextxy(2*x,  1 7*y, Label  F  with  2."); 

Pause(30*x,24*y); 
outtextxy(72*x,4*y,"F  <-  2"); 
outtextxy(19*x,13*y,"(2)"); 

/********************************************************************/ 
outtextxy(2*x,18*y,".  Put  F  in  L  and  put  (A,F)  in  T."); 

Pause(30*x.24*y); 

outtextxy(82*x,4*y,"F"); 

outtextxy(85*x,4*y,"(A,F)"); 

setcolor(backcolor); 

moveto(5*x,7*y);  lineto(20*x,25*y/2); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(5*x,7*y);  lineto(20*x,25*y/2);  /*  add  (A,F)  to  T  */ 
setlinestyle(0,0,3); 

/********************************************************************/ 
outtextxy(2*x,19*y,".  Increment  k."); 
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Pause(30*x,24*y); 

outtextxy(45*x,5*y,"3"); 

I********************.************************************************/ 


Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,24*y); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(forecolor); 


/**** <****************************************************************1 


outtextxy(2*x,15*y,".  Now  pick  G  since  it  is  unlabeled  and"); 
outtextxy(2*x,  1 6*y, "  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x,17*y,"  labeled  vertex  F."); 

Pause(30*x,24*y); 
outtextxy(52*x,5*y,  ”F"); 
outtextxy(63*x,5*y,"G"); 

/********************************************************************/ 


outtextxy(2*x,18*y,".  Label  G  with  3."); 
Pause(30*x,24*y); 
outtextxy(72*x,5*y,"G  <-  3"); 
outtextxy(37*x,7*y,"(3)"); 


^********************************************* *********************** ^ 


outtextxy(2*x,19*y,".  Put  F  in  L  and  put  (F,G)  in  T."); 

Pause(30*x,24*y); 

outtextxy(82*x,5*y,"G"); 

outtextxy(85*x,5*y,"(F,G)"); 

setcolor(backcolor); 

moveto(20*x,25*y/2);  lineto(35*x,7*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,25*y/2);  lineto(35*x,7*y);  /*  add  (F,G)  to  T  */ 
setlinestyle(0,0,3); 

!********************************************************************! 


outtextxy(2*x,20*y,".  Increment  k."); 

Pause(30*x,24*y); 
outtextxy(45*x,6*y,  "4"); 

!********************************************************************! 
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Pause(30*x,24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,55*x,24*y); 
bar(3*x/2,23*y,  179*x/2,97*y/4); 
setcolor(forecolor); 


y********************************************************************y 


outtextxy(2*x,15*y,".  Pick  C  since  it  is  unlabeled  and"); 
outtextxy(2*x,16*y,"  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x,17*y,"  labeled  vertex  G."); 

Pause(30*x,24*y); 

outtextxy(52*x,6*y,"G"); 

outtextxy(63*x,6*y,"C"); 

f*  *  ***  ***  *****  ***** ************  ************  *****************  *********/ 


outtextxy(2*x,18*y,".  Label  C  with  4."); 

Pause(30*x,24*y); 
outtextxy(72*x,6*y,"C  <-  4"); 
outtextxy(22*x,3*y/2,"(4)"); 

y********************************************************************y 


outtextxy(2*x,19*y,".  Put  C  in  L  and  put  (G,C)  in  T."); 

Pause(30*x,24*y); 
outtextxy(82*x,6*y,"C"); 
outtextxy(85*x,6*y,"(G,C)"); 
setcolor(backcolor) ; 
moveto(20*x,3*y/2);  lineto(35*x,7*y); 
setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,3*y/2);  lineto(35*x,7*y);  /*  add  (G,C)  to  T  */ 
setlinestyle(0,0,3); 

I  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */ 

outtextxy(2*x,20*y,".  Increment  k."); 

Pause(30*x,24*y); 

outtextxy(45*x,7*y,"5"); 

y********************************************************************y 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,24*y); 
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bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(forecolor); 

y*  ****************************************************************** 


outtextxy(2*x,15*y,".  Pick  D  since  it  is  unlabeled  and"); 
outtextxy(2*x,16*y,"  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x,17*y,”  labeled  vertex  C."); 

Pause(30*x,24*y); 
outtextxy(52*x,7*y,"C"); 
outtextxy(63  *x,7  *y,"D"); 

y********************************************************************y 


outtextxy(2*x,18*y,".  Label  D  with  5."); 

Pause(30*x,24*y); 
outtextxy(72*x,7*y,"D  <-  5"); 
outtextxy(19*x,5*y,"(5)"); 

y********************************************************************y 


outtextxy(2*x,19*y,".  Put  D  in  L  and  put  (C,D)  in  T."); 

Pause(30*x,24*y); 

outtextxy(82*x,7*y,"D"); 

outtextxy(85*x,7*y,"(C,D)"); 

setcolor(backcolor); 

moveto(20*x,3*y/2);  lineto(20*x,4*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,3*y/2);  lineto(20*x,4*y);  /*  add  (C,D)  to  T  */ 
setlinestyle(0,0,3); 

outtextxy(2*x,20*y,".  Increment  k."); 

Pause(30*x,24*y); 

outtextxy(45*x,8*yI"6"); 

y********************************************************************y 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(3*x/2,59*y/4,55*x,24*y); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(forecolor); 
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y* ****** *************************************************************/ 

outtextxy(2*x,15*y,".  Pick  B  since  it  is  unlabeled  and"); 
outtextxy(2*x,16*y,"  adjacent  to  the  (cunently)  largest"); 
outtextxy(2*x,17*y,"  labeled  vertex  D."); 

Pause(30*x,24*y); 

outtextxy(52*x,8*y,"D"); 

outtextxy(63*x,8*y,"B"); 


y********************************************** ******** **************y 


outtextxy(2*x,18*y,".  Label  B  with  6."); 

Pause(30*x,24*y); 
outtextxy(72*x,8*y,"B  <-  6"); 
outtextxy(8*x,27*y/4,"(6)"); 

y********************************************************************y 

outtextxy(2*x,19*y,".  Put  B  in  L  and  put  (D,B)  in  T."); 

Pause(30*x,24*y); 

outtextxy(82*x,8*y,"B"); 

outtextxy(85*x,8*y,"(D,B)"); 

setcolor(backcolor); 
moveto(10*x,7*y);  lineto(20*x,4*y); 
setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(10*x,7*y);  lineto(20*x,4*y);  /*  add  (D,B)  to  T  */ 
setlinestyle(0,0,3); 

y********************************************************************y 


outtextxy(2*x,20*y,".  Increment  k."); 

Pause(30*x,24*y); 

outtextxy(45*x,9*y,"7"); 


y********************************************************************y 


Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,24*y); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(forecolor); 

y**** ************************************************************ ****y 


outtextxy(2*x,15*y,".  Pick  E  since  it  is  unlabeled  and"); 
outtextxy(2*x,16*y,"  adjacent  to  the  (currently)  largest"); 
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outtextxy(2*x,17*y,"  labeled  vertex  B."); 

Pause(30*x,24*y); 
outtextxy(52*x,9*y,"B "); 
outtextxy(63*x,9*y,"E"); 

I**** *************************************************************** *y 


outtextxy(2*x,18*y,".  Label  E  wi'h  7."); 

Pause(30*x,24*y); 
outtextxy(72*x,9*y,"E  <-  7"); 
outtextxy(19*x,9*y,''(7)"); 

y********************************************************************y 


outtextxy(2*x,19*y,".  Put  E  in  L  and  put  (B,E)  in  T."); 

Pause(30*x,24*y); 

outtextxy(82*x,9*y,"E"); 

outtextxy(85*x,9*y,"(B,E)"); 

setcolor(backcolor); 

moveto(10*x,7*y);  lineto(20*x,10*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(10*x,7*y);  Iineto(20*x,10*y);  /*  add  (B,E)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,24*y); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(forecolor); 

y*********************>;**********************************************y 
outtextxy(2*x,15*y,".  At  this  stage  as  you  see  all  vertices  "re"); 
outtextxy(2*x,16*y,"  in  L.  This  means  we  are  done.  The  graph"); 
outtextxy(2*x,17*y,"  with  dashed  lines  is  the  spanning  tree"); 
outtextxy(2*x,18*y,"  of  underlying  graph  G.”); 

y*******************  *****************************  ****,.  ******** *******y 

Pause(30*x,24*y); 

closegraph(); 

videoinitO; 

) 
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/*  PROGRAM 
i-.'  THOR 
DATE 
REVISED 


:  examp432.c 
:  Atilia  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  implementation  of 
the  depth  first ;  earch. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/■’  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _hios_keybrdfa) 

#define  findfirstfa,b,c)  _dos_findfirst(a,c,b) 

^define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  I*  Znrtech  C/Cn-+  7 

#defint  ffbl k  FIND 

#define  ff_name  name 

#define  ff  attrib  attribute 

#ettdil 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  iiiit  graph  (void); 
static  void  confirm  graph  exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/*  graphic  initialization  variables  */ 

/**********^:f;*%********************:;' %*%%*******%**%**********%**%*%**** 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

hit  quitcolor; 

hit  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register  clrivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(I ); 
if(registerbgidriver(ATT_driver)  <  0)  exit(  1 ); 
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/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

^i**********************************************************************/ 

static  void  init_graph(vokl) 

( 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

/********************************************************************^ 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  giaphresult(); 

if(graph_error  <  0) { 
puts(grapherronnsg(graph_error)); 
exit(l ); 

) 

/* ) It******************************************************************/ 

MaxX  =  getmaxxij; 

MaxY  =  getmaxyO; 
x  =  MaxX/80: 
y  =  MaxY/25; 
settextO; 

if  ((graplunode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graplunode  == 
ATT400MED)  II  (graplunode  ==  MCGAH1)  II  (graplunode  ==  ATT400H1))  ( 
setfiilstyle(SOLlD_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  | 

setfillstyle(SOLIDJFILL.BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 
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/**********************************************************************/ 
static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar <3  *x/2,23  *y  ,1 79*x/2,97 *y/4); 

setcolor(quitcolor); 

kbIist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_inouse&MS_CURS )  msliidecui  ( ); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

whUe  (!((ch  ==  y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  •>>’)  II  (ch  ==  ’n’)  II  (ch  ==  *Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  { 
case  y :  closegraph(); 
videoinit(); 
exit(O); 
break: 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O): 
break; 

case  setcolor(backcolor); 

baj(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  lt'x)23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break: 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


> 

^fc^*******************************************************************^ 

/*  This  function  sets  the  text  default  values  */ 

/********************************************************* ****** *******/ 


static  void  settext(void) 


I 

settextstyle(O.O.O); 

setlinestyle(0,4,3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 


************ ******++*************+********************************+***/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

void  Pause(i,j) 
int  i,  j; 

( 

settext( ); 

outtextxyvi.j."»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey()==ESC)  confinn_graph_exit(); 


j^t  ******;4<*******  +  *****  +  ****  +  ***  +  *  +  ****************  +  **********,  +  *****Jf<**>fy 

/*  main  routine  that  calls  exer  routine  */ 

ji ►  ******:f*  +  **:4<*********>k%****  +  ****jfc***%*%  +  *%*  +  ********:fr**3|<J|<*jf<%*  +  **  +  *Jfcj|ejiy 

void  maui() 


exert ); 
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/*  This  routine  illustrates  an  implementation  of  the  depth  first  search.  */ 

y**********************************************************************/ 

void  exer( ) 

( 

init_graph(); 
setcolorf  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-3-2"); 

yjft%**%******%>tc******4r4'***%**%**>f<*%*%%*%%jfc*%*4t%%*%****]|'j|(**]|<>|c)f'>|'>f<*)t<*%’4<*3fy 

pieslice(l0*x,4*y,0,359,2);  /*  A  */ 

pieslice(20*x.4*y,0,359,2);  /*  B  */ 

pieslice(30*x.4*y,0.359,2);  /*  C  */ 

pieslice(40*x.4*y,0,359,2);  /*  D  */ 

pieslice(10*x.7*y,0,359,2);  /*  E  */ 

pieslice(20*x.7*y,0,359,2);  /*  F  */ 

pieslice(30*x,7*y, 0,359,2);  /*  G  */ 

pieslice(40*x.7*y,0,359,2);  /*  H  */ 

pieslice(20*x.l0*y,0, 359,2);  /*  I  */ 

pieslice'30*x,10*y, 0,359,2);  /*  J  */ 

outtextxy  ( 1 0  *x  ,7  *y /2 ,"  A" ) ; 
outtextxy(20*x,7*y/2,"B”); 
outtextxy(30*x,7*y/2,"C"); 
outtextxy(40*x,7*y/2,"D"); 
outtextxy(8*x.7*y,"E"); 
outtextxy(18*x,15*y/2,"F"); 
outtextxy(32*x,I5*y/2,”G  ’); 
outtextxy(42*x,7*y,”H”); 
outtextxy(20*x,2 1  *y/2,"I"); 
outtextxy(30*x,2l  *y/2,"J"); 

moveto(  I0*x.4*y );  lineto(20*x,4*y);  lineto(20*x,7*y); 

lineto(  I0*x,7*y);  lineto(10*/,4*y); 

moveto( 30*x,7*y );  lineto(30*x,  1 0*y);lineto(20*x,  1 0*y ): 

lineto(20*x,7*y);  lineto(30*x,7*y); 

moveto(20*x,I0*y);lineto(30*x,7*y); 
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moveto(30*x,7*y);  lineto(30*x,4*y);  lineto(40*x,4*y); 

lineto(40*x,7*y);lincto(30*x,7*y); 

moveto(30*x,4*y);Iineto(40*x,7*y); 

outtextxy(45*x,2*y,"k' ); 

outtextxy(48*x,2*y,"Vertex(V)"); 

outtextxy(62*x,3*y/2,"Adj"), 

outtextxy(59*x,2*y,"vertex(U)"); 

outtextxy(73*x,2*y, "Label"); 

outtextxy(82*x,2*y,"L"); 

outtextxy(87*x,2*y,"T"); 
moveto(44*x.5*y/2);  lineto(47*x,5*y/2); 
moveto(48*x.5*y/2);  lineto(58*x,5*y/2); 

moveto(59*x.5*y/2);  lineto(69*x,5*y/2); 
moveto(70*x,5*y/2);  lineto(80*x,5*y/2); 
moveto(  8 1  *x  .5  *y/2 );  line to(  84 *x  ,5  *y/2 ); 
ino  veto(  8  5  *x  .5 *y/2 ) ;  lineto(90*x,5*y/2); 

outtextxy(2*x,14*y,"THE  WAY  WE  APPLIED  THE  ALGORITHM"); 
moveto(3*x/2,29*y/2);  lineto(43*x,29*y/2); 

outtextxy(2*x,15*y,".  Initially  pick  (arbitrarily)  A  and"); 
outtextxy(2*x.  1 6*y,"  put  it  in  vertex(V)."); 

Pause(7*x.24*y); 

outtextxy(52*x,3*y,"A"); 

outtextxy(2*x,17*y,".  Label  A  with  1  (As  you  see,we  will"); 
outtextxy(2*x.l8*y,"  show  the  label  in  paranthesis  near"); 
outt-xtxy(2*x.I9*y,"  the  vertex.”); 

Pause(7*x.24*y ); 
outtextxy(72*x,3*y."A  <-  1"); 
outtextxy(6*x.4*y,"(  ]  >"); 


****************+++++■),  I 


outtextxy(2*x.20*y,".  Put  A  in  L."); 

Pause(7*x,24*y); 

outtextxy(82*x,3*y,"A"); 

/*****************************#*i'+#**i,4,Jl,i,lkll'4,4,i,m*i,+1„'il'ih**!l']l':t' 


******** 


/ 
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outtextxy(2*x,21*y,".  Increment  k."); 

Pause(7*x,24*y); 

outtextxy(45*x,4*y,"2"); 

/********  ********  *****  ************************  ********************** *^ 


Pause(7*x,24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,44*x,49*y/2); 
setcolor(  forecolor); 

^*  ******* ******************* *****************************************/ 


outtextxy(2*x,15*y,".  Now  pick  B  since  it  is  unlabeled  "); 
outtextxy(2*x,16*y,"  and  adjacent  to  A  (currently  larg-"); 
outtextxy(2*x,17*y,"  est  labeled)."); 

Pause(7*x,24*y); 

outtextxy(52*x,4*y."A"); 

outtextxy(63*x,4*y,"B"); 

^********************************************************************^ 
outtextxy(2*x.l8*y,".  Label  B  with  2."); 

Pause(7*x,24*y); 
outtextxy(72*x,4*y,"B  <-  2"); 
outtextx  y(22  *x,4  *y,"(2 )" ); 

/********************************************************************/ 


outtextxy(2*x,19*y,".  Put  B  in  L  and  put  (A,B)  in  T."); 

Pause(7*x,24*y); 

outtextxy(82*x,4*y,"B"); 

outtextxy(85*x,4*y,"(A,B)"); 

se  tcoloi  ( backcolor ) ; 
moveto(  10*x,4*y );  lineto(20*x,4*y); 
setcolor(  forecolor); 
setlinestyle(3.0,3); 

inoveto(10*x,4*y);  lineto(20*x,4*y);  /*  add  (A,B)  to  T  */ 
setlinestyle(0,0,3); 

outtextxy(2*x.20*y,".  Increment  k."); 

Pause(7*x,24*y); 

outtextxy(45*x.5*y,"3"); 
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Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,44*x,49*y/2); 

setcolor(forecolor); 

outtextxy(2*x,15*y,".  Now  pick  F  since  it  is  unlabeled  "); 
outtextxy(2*x,16*y,"  and  adjacent  to  the  (currently)"); 
outtextxy(2*x.l7*y,"  largest  labeled  vertex  G."); 

Pause(7*x,24*y); 

outtextxy(52*x,5*y,"B"); 

outtextxy(63*x,5*y,"F"); 

outtextxy(2*x.l8*y,".  Label  F  with  3."), 

Pause(7*x,24*y); 
outtextxy(72*x.5*y,"F  <-  3"); 
outtextxy(21  *x,27*y/4,”(3)"); 

I*  j^*************  **********  ****  *******  ***********************  *****  ***/ 

outtextxy(2*x.l9*y,".  Put  F  in  L  and  put  (B,F)  in  T."); 

Pause(7*x,24*y); 

outtextxy(82*x,5*y,"F"); 

outtextxy(85*x,5*y,"(B,F)"); 

setcolor(backcolor); 

moveto(20*x,4*y);  lineto(20*x,7*y); 

setcolor(forecolor); 

setlinestyle(3.0,3); 

moveto(20*x.4*y);  lineto(20*x,7*y);  /*  add  (B,F)  to  T  */ 
setlinestyle(0.0,3); 

outtextxy(2*x.20*y,".  Increment  k."); 

Pause(7*x,24*y); 

outtextxy(45*x,6*y,"4"); 

Pause(7*x,24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4t44*x,24*y); 
setcolor(  forecolor); 
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^******  ******************  jIt***********************  ******  %**:(<***  *******/ 

outtextxy(2*x,15*y,".  Pick  G  since  it  is  unlabeled  and"); 
outtextxy(2*x.l6*y,"  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x,17*y,"  labeled  vertex  F."); 

Pause(7*x,24*y); 

outtextxy(52*x,6*y,"F"); 

outtextxy(63*x,6*y,"G"); 

J**  ******************************************************************/ 

outtextxy(2*x,18*y,".  Label  G  with  4."); 

Pause(7*x,24*y); 
outtextxy(72*x,6*y,"G  <-  4"); 
outtextxy(26*x,27*y/4,"(4)"); 

/**************************************************  ****************,1,*^ 
outtextxy(2*x,19*y,".  Put  G  in  L  and  put  (F,G)  in  T."); 

Pause(7*x,24*y); 
outtextxy(82*x,6*y,"G"); 
outtextxy(85*x,6*y,"(F,G)"); 
setcolor(backcolor); 
moveto(20*x.7*y);  lineto(30*x,7*y); 
setcol  or( forecol  or); 

setlinestyle(3.0,3); 

moveto(20*x.7*y);  lineto(30*x,7*y);  /*  add  (F,G)  to  T  */ 
setlinestyle(0.0.3); 

/********************************************************************/ 
outtextxy(2*x.20*y,".  Increment  k."); 

Pause(7*x,24*y); 

outtextxy(45*x.7*y."5"); 

y* *******************************************************************/ 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,44*x,49*y/2); 

setcolor(forecolor); 

^*******************************************************************,ty 

outtextxy(2*x.l5*y,".  Pick  C  since  it  is  unlabeled  and"); 
outtextxy(2*x.l6*y,"  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x.l7*y,"  labeled  vertex  G."); 
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Pause(7*x,24*y); 

outtextxy(52*x,7*y,"G”); 

outtextxy(63*x.7*y,"C"); 

outtextxy(2*x,18*y,".  Label  C  with  5."); 

Pause(7*x,24*y); 
outtextxy(72*x,7*y,"C  <-  5"); 
outtextxy(26*x.4*y,"(5)"); 

/***************************,,,,,,*  *****  *********************„cj(t,(<*,)<!((l(l!(il|<  +  i(<i)</ 
outtextxy(2*x.l9*y,".  Put  C  in  L  and  put  (G,C)  in  T."); 

Pause(7*x,24*y); 

outtextxy(82*x,7*y,"C" ); 

outtextxy(85*x,7*y,"(G,C)"); 

setcolor(backcolor); 

moveto(30*x.7*y);  lineto(30*x,4*y); 

setcolor(forecolor): 

setlinestyle(3.0,3); 

moveto(30*x,7*y);  lineto(30*x,4*y);  /*  add  (G,C)  to  T  */ 
setlinestyle(0,0,3); 

I*********************************,****************************,''******/ 
outtextxy(2*x,20*y,".  Increment  k."); 

Pause(7*x,24*y ); 
outtextxy(45*x,8*y,"6"); 

Z***  *************** Jfc******:******************************,,,,,,^,,,^^^^ 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,44*x,49*y/2); 

setcoloi  (forecolor); 

/************************* 

outtextxy(2*x,15*y,".  Pick  D  since  it  is  unlabeled  and"); 
outtextxy(2*x.l6*y,"  adjacent  to  the  (currently)  largest"); 
outtextxy(2*x,  1 7*y ,"  labeled  vertex  C."); 

Pause(7*x,24*y ); 
outtextxy(52*x,8*y."C” ); 
outtextxy(63*x,8*y."D"); 

Z**************************************^^^^^^^^^^^ 
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outtextxy(2*x,18*y,”.  Label  D  with  6."); 

Pause(7*x,24*y); 
outtextxy(72*x,8*y,"D  <-  6"); 
outtextxy(4 1  *x,4*y  ,"(6)" ); 

/****************************************+********** c*****************y 

outtextxy(2*x,19*y,".  Put  D  in  L  and  put  (C,D)  in  T."); 

Pause(7*x,24*y); 


outtextxy(82*x,8*y,"D"); 
outtextxy(85*x,8*y,"(C,D)"); 
setcolor(backcolor); 
nioveto(30*x,4*y);  lineto(40*x,4*y); 
setcolor(  forecolor); 
setlinestyle(3.0,3); 

moveto(30*x,4*y);  lineto(40*x,4*y);  /*  add  (C,D)  to  T  */ 
setlinestyle(0,0,3); 

^*  ***%*********************%****%****%***%%%*%*******************%*** 


outtextxy(2*x.20*y,".  Increment  k.”); 

Pause(7*x,24*y); 

outtextxy(45*x.9*y,"7"); 


Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2.59*y/4,44*x.24*y); 

setcolor(forecolor); 

outtextxy(2*x,15*y,".  Pick  H  since  it  is  unlabeled  and"); 

outtextxy(2*x,16*y,"  adjacent  to  the  (currently)  largest”); 

outtextxy(2*x,17*y,"  labeled  vertex  D."); 

Pause(7*x,24*y); 

outtextxy(52*x,9*y,"D"); 

outtextxy(63*x,9*y."H"); 

outtextxy(2*x,l  8*y,".  Label  H  with  7."); 

Pause(7*x,24*y); 
outtextxy(72*x,9*y,"H  <-  7"); 
outtextxy(38*x,15*y/2,"(7)"); 
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outtextxy(2*x.l9*y,".  Put  H  in  L  and  put  (D,H)  in  T."); 

Pause(7*x,24*y); 

outtextxy(82*x,9*y,"H"); 

outtextxy(85*x,9*y,"(D,H)"); 

setcolor(backcolor); 

moveto(40*x,4*y);  lineto(40*x,7*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(40*x,4*y);  lineto(40*x,7*y);  /*  add  (D,H)  to  T  */ 
setlinestyle(0,0,3); 

/a*******************************************************************/ 

outtextxy(2*x,20*y,".  Increment  k."); 

Pause(7*x,24*y); 

outtextxy(45*x,10*y,"8"); 

/fr*******************************************************************/ 

Pause(7*x,24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,44*x,49*y/2); 
setcolor(  forecolor); 

^♦♦l’*****************************************************************/ 

outtextxy(2*x,15*y,".  As  you  see  there  are  still  vertices"); 
outtextxy(2*x,16*y,"  with  labels  that  have  adj.  vertices"); 
outtextxy(2*x,17*y,"  without  labels.  But,  this  time  it’s"  ); 
outtextxy(2*x,18*y,"  not  the  vertex  H  with  the  largest  "); 
outtextxy(2*x,19*y,"  label  which  has  such  adj.  vertices."); 
outtextxy(2*x.20*y,"  Thus  we  back  up  until  we  find  a  la-"); 
outtextxy(2*x,21  *y."  beled  vertex  which  has  an  unlabeled"); 
outtextxy(2*x,22*y,"  adjacent  vertex,  (i.e.  G)"); 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,44*x,24*y); 

setcolorfforecoloi ); 

outtextxy(52*x.!0*y,"H"); 

outtextxy(63*x,I0*y,"-"); 

outtextxy(52*x,I  l*y,"D"); 
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outtextxy(63*x.l 

outtextxy(52*x,12*y,"C"); 


outtextxy(63*x,12*y,"-"); 


outtextxy(2*x,15*y,".  At  this  stage  we  choose  J,  since  it"); 
outtextxy(2*x,16*y."  is  not  labeled."); 

Pause(7*x,24*y); 


outtextxy(52*x,l  3*y,"G"); 
outtextxy(63*x,13*y,"J"); 


outtextxy(2*x,18*y,".  Label  J  with  6."); 
Pause(7*x,24*y); 


outtextxy(72*x,13*y,"J  <-  8"); 
outtextxy(32*x  ,1 0*y,"(8)"); 

/******************************************************************** 


outtextxy(2*x,19*y,".  Put  J  in  L  and  put  (G,J)  in  T."); 

Pause(7*x,24*y ); 

outtextxy(82*x,  1 3*y  ,"J" ); 

outtextxy(85*x,I3*y,"(G,J)"); 

setcolor(backcolor); 

movefo(30*x,7*y);  lineto(30*x,10*y); 

setcolor)  forecolor); 

setlinestyle(3,0.3); 

moveto(30*x.7*y);  lineto(30*x,10*y);  /*  add  (G,J)  to  T  */ 
setlinestyle(0,0,3); 

****************************-•!***************  ***********************/ 


outtextxy(2*x,20*y ," .  Increment  k.”); 
Pause(7*x,24*y); 


outtextxy(45*x,14*y,"9 "); 

yr********************************************************************^ 

Pause(7*x.24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,44*x,49*y/2); 
setcoloif  forecolor); 

^♦fr******************************************************************/ 

outtextxy(2*x,15*y,".  Pick  I  since  it  is  unlabeled  and"); 
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outtex‘xy(2*x,16*y,"  adjacent  to  the  (currently)  largest '); 
outtextxy(2*x,17*y,"  labeled  vertex  J."); 

Pause(7*x,24*y); 

outtextxy(52*x,14*y,"J"); 

outtextxy(63*x,14*y.T'); 

/♦♦♦fr****************************************************************/ 

outtextxy(2*x,l8*y,".  Label  I  with  9."); 

Pause(7*x,24*y); 
outtextxy(72*x,14*y,"I  <-  9"); 
outtextxy(16*x,10*y,"(9)"); 

/i********************************************************************/ 

outtextxy(2*x.I9*y,".  Put  I  in  L  and  put  (J,I)  in  T."); 

Pause(7*x,24*y); 
outlextxy(82*x,14*y.T’); 
outtextxy(85*x,14*y,  ’(J,I)"); 
setcoloi  ( backcol  or ); 

moveto(20*x,10*y);  lineto(30*x,10*y); 
setcolor( forecolor); 
setlinestyle(  3.0,3); 

moveto(20*x,10*y);  lineto(30*x,10*y);  /*  add  (J,l)  to  T  */ 
setlinestyle(0.0,3); 

outtextxy(2*x.20*y,".  Increment  k."); 

Pause(7*x.24*y); 

outtextxy(45*x.I5*y,"!0"); 

Pause(7*x.24*y ); 
setcolor(backcolor); 
bar(3*x/2.59*y/4,44*x,49*y/2); 
setcolort  forecolor); 

outtextxy(2*x,15*y,”.  As  you  see  there  are  still  vertices"); 
outtextxy(2*x.l6*y,”  with  labels  that  have  adj.  vertices"); 
outtextxy(2*x,  1 7*y,"  without  labels.  But  these  are  not  "); 
outtextxy(2*x.l  8*y,"  adj,  to  the  vertex  1  with  the  iarg-"); 
outtextxy(2*x.l9*y,”  est  label  9.  Thus  again,  we  back  up"); 
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outtextxy(2*x.20*y,”  to  the  vertex  with  label  5,  and  "); 
oultextxy(2*x,21*y,"  find  that  it  is  adj.  to  a  vertex  "); 
outtextxy(2*x.22*y,"  without  label."); 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,44*x,49*y/2); 

setcolor(  forec  olor ) ; 

outtextxy(52*x,16*y,"I"); 

outtextxy(63*x,16*y,"-"); 

outtextxy(52*x,17*y,"J"); 

outtextxy  (63  *x ,  1 7  *y ) ; 

outtextxy(52*x,18*y,”H"); 

outtextxy(63*x,18*y,"-"); 

outtextxy(52*x,19*y,"D"); 

outtextxy(63*x.l9*y,"-"); 

outtextxy(52*x,20*y,"C"); 

outtextxy(63*x,20*y ,"-"); 

otittextxy(52*x,21  *y,"G"); 

outtextxy(63*x,21 

^******* ************************************************************* j 

outtextxy(2*x,l  5*y,".  At  this  stage  we  choose  E,  since"); 
outtextxy(2*x,I6*y,"  it  is  not  labeled."); 

Pause(7*x,24*y); 

outtextxy(52*x,22*y,"F"); 

outtextxy(63*x,22*y,"E"); 

I********************************************************************/ 

outtextxy(2*x,18*y,".  Label  E  with  10."); 

Pause(7*x,24*y); 
outtextxy(72*x.22*y,"E  <-  10"); 
outtextxy(8*x,15*y/2,"(10)"); 

/********************************************************************/ 
outtextxy(2*x,19*y,".  Put  E  in  L  and  put  (F,E)  >n  T."); 

Pause(7*x,24*y); 

outtextxy(82*x,22*y,"E"); 

outtextxy(85*x,22*y,"(F,E)"); 

setcolor(backcolor); 
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moveto(20*x.7*y);  lineto(10*x,7*y); 
setcolor(forecoior); 

setliiiestyle(3.0,3); 

moveto(20*x,7*y);  lineto(10*x,7*y);  /*  add  (F,E)  to  T  */ 
setlinestyle(0,0,3); 

Pause(7*x,24*y); 

setcoloi(backcoloi); 

bar(3*x/2,59*y/4,44*x,49*y/2); 

setcolor(forecolor); 

outtextxy(2*x.l5*y,".  At  this  stage  as  you  see  all  ver-"); 
outtextxy(2*x,16*y,"  tices  are  in  L.  This  means  we  are"); 
outtextxy(2*x,17*y,"  done.  The  graph  with  dashed  lines"); 
outtextxy(2*x,18*y,"  is  the  spanning  tree  of  underlying"); 
outtextxy(2*x.l  9*y,"  graph  G."); 

/********************************************************************/ 


Pause(30*x.24*y); 

closegrapli(); 

videoinit(); 
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/*  PROGRAM  :  exanip433.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  18, 1990 
REVISED  :  Apr.  18, 1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  a  depth  first  search  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#if  defined (_TURBOC _ )  J*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M _I86)  &&  !defmed(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#end:f 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/**^************************* ********* ******* *************************/ 
/*  graphic  initialization  variables  */ 

^* *********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


/**********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 


static  void  register_drivers(void) 

{ 


if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 


867 


I************************************************ ********************** ^ 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

^****** ***********************************************  ****** ***********/ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

rcgister_drivers(); 
graphdriver  =  DETECT; 

j**************************************** ******  *********************** i 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresult(); 

J**********************+**********************************************l 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 


yl*  ********************************************************************/ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyQ; 
x  =  MaxX/80; 
y  =  MaxY/25; 

^************************ ********  **********  *************************** i 

settext(); 

J****************************************** *************************** f 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfiUstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 

} 

forecolor  =  WHITE; 
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y* **************«*«****************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

y**«***«***4.****************4^*******4^****************  ************  ****y 


static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(IIORIZ_DIR,CENTER_TEXT); 

) 


y* ***************************************************** ****************y 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y**********************************************************************y 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...<«"); 
if(waitkey()==ESC)  { 
closegraph(); 
videoinit(); 
exit(O); 

} 

} 


y**********************************************************************y 

/*  main  routine  which  calls  exer  routine  */ 

y**********************************************************************^ 


void  main() 

{ 

exer(); 

} 
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/************** ********************************************************/ 
/*  This  routine  illustrates  a  depth  first  search  tree.  */ 

^*******************************+**************************************1 
void  exer() 

{ 


init_graph(); 
setcolor(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-3-3"); 

/********************************************************************/ 


pieslice(5*x,7*y,0,359,2);  /*  A  */ 

pieslice(10*x,7*y, 0,359,2);  /*  B  */ 

pieslice(35*x,7*y,0,359,2);  /*  G  */ 

pieslice(20*x,4*y,0,359,2);  /*  D  */ 

pieslice(20*x,  10*y,0,359,2);  /*  E  */ 

pieslice(20*x,3*y/2, 0,359,2);  /*  C  */ 
pieslice(20*x,25*y/2,0, 359,2);  /*  F  */ 
outtextxy(3*x,7*y,"A  "); 
outtextxy  (36*x,7*y,  "G  "); 
outtextxy(20*x/2, 1 5*y/2,"B"); 
outtextxy(20*x,9*y/2,"D"); 
outtextxy(21*x,3*y/2,"C"); 
outtextxy(20*x,19*y/2,"E"); 
outtextxy(21*x,25*y/2,"F"); 
moveto(5*x,7*y);  lineto(10*x,7*y);  lineto(35*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,4*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,3*y/2);  lineto(20*x,4*y); 
moveio(5*x,7*y);  lineto(20*x,10*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,25*y/2);  lineto(20*x,10*y); 
moveto(20*x,3*y/2);  lineto(35*x,7*y); 
moveto(20*x,4*y);  lineto(35*x,7*y); 

moveto(20*x,10*y);  lineto(35*x,7*y); 
moveto(20*x,25*y/2);  lineto(35*x,7*y); 


/**********************************************************+*********y 


outtextxy(44*x,3*y,"EXPLANATIONS"); 
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moveto(43*x,7*y/2);  lineto(89*x,7*y/2); 


/*************>M*****************************************************/ 


outtextxy(2*x,13*y/2,"(l)"); 
outtextxy(  19*x,  1 3*y,"(2)"); 
outtextxy(37*x,7*y,"(3)"); 
outtextxy(22*x,3*y/2,"(4)"); 
outtextxy(19*x,5*y,"(5)"); 
outtextxy(8*x,27*y/4,"(6)"); 
outtextxy(19*x,9*y,"(7)"); 
setcolor(backcolor); 
moveto(5*x,7*y);  lineto(20*x,25*y/2); 
moveto(35*x,7*y);  lineto(20*x,25*y/2); 
moveto(35*x,7*y);  lineto(20*x,3*y/2); 
moveto(20*x,4*y);  lineto(20*x,3*y/2); 
moveto(20*x,4*y);  lineto(10*x,7*y); 
moveto(20*x,10*y);  lineto(10*x,7*y); 
setcolor(forccolor); 
setlinestyle(3,0,3); 

moveto(5*x,7*y);  lineto(20*x,25*y/2); 
moveto(35*x,7*y);  lineto(20*x,25*y/2); 
moveto(35*x,7*y);  lineto(20*x,3*y/2); 
moveto(20*x,4*y);  lineto(20*x,3*y/2); 
moveto(20*x,4*y);  lineto(10*x,7*y); 
moveto(20*x,10*y);  lineto(10*x,7*y); 
setlinestyle(0,0,3); 

/I********************************************************************/ 


outtextxy(43*x,4*y, "According  to  our  definition,  the  tree"); 
outtextxy(43*x,5*y, "formed  by  dashed  lines  in  the  graph  is"); 
outtextxy(43*x,6*y,"called  depth  first  search  tree."); 
outtextxy(43*x,7*y,"The  edges,  such  as  (A,F),  (C,D)  are"); 
outtextxy(43*x,8*y, "called  tree  edges."); 
outtextxy(43*x,9*y,"The  edges,  such  as  (A,B),  (A,G),"); 
outtextxy(43*x,10*y,"are  called  back  edges."); 
outtextxy(43*x,l  l*y,"The  labels  (in  paranthesis)  of  each  "); 
outtextxy(43*x,12*y,"vertex  are  called  depth  first  search"); 
outtextxy(43*x,13*y, "numbers."); 
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outtextxy(43*x,14*y,"Here  we  would  like  to  take  you/  atten-"); 
outtextxy(43*x,15*y,"tion  to  the  point  that  the  designation"); 
outtextxy(43*x,16*y,"of  edges  as  tree  and  back  edges  as  "); 
outtextxy(43*x,17*y,"well  as  the  depth  first  search  num-"); 


outtextxy(43*x,18*y,"bering  depends  upon  the  choices  made"); 

outtextxy(43*x,19*y,"during  implementadon  of  the  algorithm."); 

/****************************************************************. 


********/ 


Pause(30*x,24*y); 

closegraph(); 

videoinitO; 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q431.c 
:  Atilla  BAKAlN 
:  Mar.  22,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  the 
depth  first  search  for  spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.li" 

#include  "cxlmou.h" 

#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.li>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  Idefinedf  ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  flnd_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  mit__graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  showalg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confinn_exit  (void); 

y* *******%******%********************** ********************************/ 

/*  miscellaneous  global  variables  */ 

l*  +  *  +  *****  +  ***************t****+  +  +  ****  +  *)(  +  **:  +  +  t(*1(***<  +  *******1()c**it+:  +  +  *j<-t(+J 

int  in_the_exercise  =  1; 

/*%*******************************************%*****************%%*****/ 
/*  graphic  initialization  variables  */ 

/*************> k********************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph  error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y.  MaxX,  MaxY; 
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/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

Z**********************************************************************'/ 

static  void  register  drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(  1 ); 
if(regislerbgidriver(EGAVGA_driver)  <  0)  exit(  1 ); 
if(registerbgidriver(ATT_driver)  <  0)  exitfl ); 

» 

/ 


^^■^^^tt***************************************************************/ 

/*  This  fuel  ion  initializes  the  necessary  graphical  routines  */ 


static  void  init  graph(void) 


int  xasp,  yasp. 


register  diivers( ); 
giaphdrivet  =  DETECT; 


initgraphi  &gt  apltdt  i  vet  ,&graphtnode,"" ); 
graph  error  =  graphresultO; 


»  V  *  a*******************************************/ 


if  (graph  error  <())( 
puts(grapherronnsg(graph  error)); 
exit(  I  ); 


ATT400MED)  II  (graphmotle  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  | 

setfillstyle(SOLlD_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 

static  void  confirm_graph_exit(vokl) 

I 

struct  _onkcy_t  *kblist; 
char ch; 

setc(*lor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4>; 

setcoloi(quitcolor); 

kblist=chgoukey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  tnshidecur( ); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getcli  (); 

while  (K(ch  ==  ’y’)  II  (ch  ==  ’n')  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getcli  (); 

if((ch  ==  •>•’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31  *x,23*y,69!t'x,97’t'y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  -y';  closegraph(); 
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videoinitQ; 

exit(O); 

break; 

case  ’Y’:  closegraphf); 
videoinitO; 
e^it(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23  *y  ,69*x,97*y/4 ); 
setcolor(forecolor); 
break: 

case  ’N':  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default  :  break; 

) 

hidecurf); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 


static  void  settext(void) 

I 


settextstyle(O.O.O); 

setlinestyle(0.4.3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 
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^**********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


/ 


********************************************************************** 


7 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(), 

outtextxy(i,j,’’»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

I 


/*  main  routine  that  calls  exer  routine  */ 

^**********************************************************************^ 
void  main( ) 

I 

exer(); 


I 
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Z**********************************************************************/ 

/*  Tliis  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 


/*  makes  necessary  explanations  */ 


static  void  exer(void) 


char  Ch; 


init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y.MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXERCISE  1 "); 

outtextxy(2*x.2*y,"Use  the  depth  first  search  algorithm  to  find  a  minimal  spanning 
tree."); 

outtextxy(2*x.3*y, "(Start  at  A.  If  there  is  a  choice  of  edges  select  edges  according 
to"); 

outtextxy(2*x,4*y, "alphabetical  order.)"); 

pieslice(10*x,5*y,0,359,2);  /*  A  */ 

pieslice(20*x.5*y,0,359,2);  /*  B  */ 

pieslice(10*x,  1 3*y/2, 0,359,2);  /*  C  */ 

pieslice(20*x,13*y/2,0.359,2);  /*  D  */ 

pieslice(30*x,I3*y/2,0,359,2);  /*  E  */ 
pieslice(20*x,8*y,0,359,2);  /*  F  */ 

pieslice(30*x.8*y,0,359,2);  /*  G  */ 

pieslice(40*x,8*y, 0,359,2);  /*  H  */ 

pieslice(30*x,19*y/2,0,359,2);  /*  I  */ 
pieslice(40*x,19*y/2,0,359,2);  /*  J  */ 
pieslice(50*x,19*y/2, 0,359,2);  /*  K  */ 
pieslice(40*x.  1 1  *y, 0,359, 2);  /*  L  */ 

pieslice(50*x.l  l*y,0,359,2);  /*  M  */ 

outtextxy(10*x.9*y/2,"A"); 


outtextxy(20*x,9*y/2,"B" ); 
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outtextxy(8*x.l3*y/2,"C"); 
outtextxy(2 1  *x,25*y/4,"D"); 
outtextxy(31*x,13*y/2,"E"); 
outtextxy(18*x,8*y,"F"); 
outtextxy(3 1  *x,3 1  *y/4,"G"); 


outtextxy(41  *x,8*y,"H"); 
outtextxy(28*x,i>  'y/2,'T'); 
outtextxy(41  *x,37*y/4,"J"); 


outtextxy(50*x.9*y,"K"); 
outtextxy(38*x,l  l*y,"L"); 
outtextxy(50*x,23*y/2,"M"); 

/******+**************************************************************/ 
moveto(10*x.5*y);  lineto(20*x.5*y);  lineto(20*x,8*y); 

lineto(40*x,8*y);  lineto(40*x,l l*y);  lineto(50*x,ll*y); 
moveto(lO*x.5*y);  lineto(10*x,13*y/2);  lineto(30*x,13*y/2); 

Iineto(30*x.l9*y/2);  lineto(50*x,19*y/2);  lineto(50*x,l  l*y); 


while  (in_t  he_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(  15*x,15*y,"  a)  I  want  to  see  the  algorithm  again.”); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x.l7*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confinn_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Cl)  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(  forecolor ); 

) 
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switch  (Ch)  { 

case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y," again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2, 1 79*x/2,2 1  *y); 
bar(2*x,  1 3*y,  1 79*x/2,49*y/2); 
setcolor(forecolor); 
show_alg(); 
break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,I3*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions( ); 

break; 

case  V:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y ."solution.  So  press  any  key  to  "); 
outtextxy(52*x,21*y, "continue."); 

Pause(30*x,24*y); 
setcolor(backcolor ); 
bar(50*x.37*y/2, 1 79*x/2,22*y); 
bar(2*x,l  3*y ,  1 79*x/2,49*y/2); 
setcolor(  forecolor); 
step_solution(); 
break; 

case  *d":  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
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break; 

default  :  break; 

) 

) 

closegraphQ; 

I 


/*  This  routine  gives  breadth  first  search  spanning  tree  algorithm  */ 

/****************  +  *!|<***l)<j)<*****#**!fr*l|t*!(!*!)<****!)<******ltt!|t*****l|<l|t*!|t*>|!)|(*!(t*l|<:(c!|y 

static  void  show_alg(void) 

{ 

outtextxy(15*x,12*y, "DEPTH  FIRST  SEARCH  SPANNING  TREE 

ALGORITHM"); 

outtextxy(2*x,13*y,"Step  1  .  Pick  a  vertex  x.  L  =  {  x  }  (list  of  vertices  in  the 
tree)"); 

outtextxy(2*x,14*y,"  T  =  0  (list  of  edges  in  the  tree),  x  <- 1,  k  <-  2 
(counter)"); 

outtextxy(2*x.l5*y,"Step  2  .  Pick  any  vertex  U  not  in  L,  such  that  U  is  adjacent  to 
the"); 

outtextxy(2*x,16*y,"  vertex  L  with  the  highest  label,  say  V."); 
outtextxy(2*x.l7*y,"  L  =  LU  |  U  },T  =  TU  (U,V),U<-k,  k  <- k  +  1"); 
outtextxy(2*x,18*y,"Step  3  .  a)  If  all  vertices  are  in  L,  stop"); 
outtextxy(2*x.l9*y,"  b)  If  not  all  vertices  are  in  L  "); 
outtextxy(2*x,20*y,"  1 )  If  there  exist  a  vertex  adjacent  not  in  L  which  is  "); 
outtextxy(2*x,21  *y,"  adjacent  to  a  vertex  in  L,  go  to  Step  2"); 

outtextxy(2*x.22*y,"  2)  If  no  such  vertex  exists,  stop  and  output  that  the"); 
outtextxy(2*x,23*y,"  graph  is  not  connected."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x  ,47*y/4 , 1 79*x/2,49*y/2 ); 

setcolor(forecolor); 

I 
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/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

^fr******^**********#**************************************************^ 

static  void  compare_solutions(void) 

I 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

^fr*******************************************************************^ 


moveto(10*x,5*y);  lineto(20*x,5*y);  lineto(20*x,13*y/2); 

lineto(30*x,13*y/2);  lineto(30*x,8*y);  lineto(40*x,8*y); 

lineto(40*x,19*y/2);  lineto(50*x,19*y/2);  luieto(50*x,ll*y); 
lineto(40*x,l  l*y); 

moveto(10*x,13*y/2);  lineto(20*x,13*y/2); 
moveto(20*x.8*y);  lineto(30*x,8*y); 

moveto(  30*x ,  1 9*y/2 ) ;  lineto(40*x ,  1 9  *y/2 ); 


setcolor(forecolor); 

setlinestyle(3,0,3); 


moveto(10*x.5*y);  lineto(20*x,5*y);  lineto(20*x,13*y/2); 

lineto(30*x,13*y/2);  lineto(30*x,8*y);  lineto(40*x,8*y); 
lineto(40*x,19*y/2);  lineto(50*x,19*y/2);  lineto(50*x,ll*y); 
lineto(40*x,ll*y); 

moveto(10*x,l3*y/2);  lineto(20*x,13*y/2); 
moveto(20*x.8*y);  lineto(30*x,8*y); 
moveto(30*x,19*y/2);  lineto(40*x,19*y/2); 
outtextxy(6*x.5*y,"(l)");  /*  A  */ 

outtextxy(2I  *x,5*y,"(2)");  /*  B  */ 

outtextxy(45*x/2,25*y/4,"(3)");  /*  D  */ 

outtextxy(33*x,13*y/2,"(4)");  /*  E  */ 

outtextxy(33*x,31*y/4,"(5)");  /*  G  */ 

outtextxy(42*x,8*y,"(6)");  /*  H  */ 

outtextxy(36*x,9*y,"(7)");  /*  J  */ 

outtextxy(46*x,9*y,"(8)");  /*  K  */ 

outtextxy(4(S*x,23*y/2."(9)");  /*  M  */ 

outtextxy(39*x,23*y/2,"(10)");  /*  L  */ 
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outtextxy(29*x,i0*y,"(l  I)");  /*  I  */ 

outtextxy(19*x,  17*y/2,' "(12)");  /*  F  */ 
outtextxy(9*x.7*y,"(13)");  /*  C  */ 

/a*******************************************************************/ 

setliiiestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,17*y/4,179*x/2,49*y/2), 

setcolor(forecolor); 

/*************************************************  *******************/ 


pieslice(10*x,5*y, 0.359,2); 
pieslice(20*x,5*y,0,359,2); 
pieslice(  1 0*x ,  1 3  *y/2,0,359,2); 
pieslice(20*x,13*y/2,0,359,2); 
pieslice(30*x,  1 3*y/2,0,359,2); 
pieslice(20*x,8*y,0,359,2); 
pieslice(30*x,8*y, 0,359,2); 
pieslice(40*x,8*y, 0,359,2); 
pieslice(30*x.l9*y/2,0,359,2); 
pieslice(40*x,19*y/2,0,359,2); 
pieslice(50*x ,  1 9*y/2,0, 359,2); 
pieslice(40*x,l  l*y  ,0,359,2); 
pieslice(50*x,l  1  *y, 0,359, 2); 


/*  A  */  /*  redraw  the  graph  */ 
/*  B  */ 

/*C*/ 

/*  D  */ 

/*  E  */ 

/*  F  */ 

/*  G  */ 

/*  H  */ 

1*1*1 
/*  J  */ 

/*  K  */ 

/*  L  */ 


/*  M  */ 

/************************+*********************+**********+%******+***/ 
outlextxy(10*x,9*y/2,"A"); 
outtextxy(20*x,9*y/2,"B"); 
outtextxy  (8  *x,  1 3  *y/2,"C" ); 
outtextxy(21  *x,25*y/4,"D"); 
outtextxy(3 1  *x.  1 3  *y/2,"E" ); 
outtextxy(  1 8*x,8*y  ,"F" ); 
outtextxy(3 1  *x,3 1  *y/4,"G''); 
outtextxy(4J  *x,8*y,"H "); 
outtextxy(28*x,19*y/2,"I"); 
outtextxy(4 1  *x,37*y/4,"J" ); 
outtextxy(50*x,9*y,"K"); 
outtextxy(38*x,l  1  *y,"L”j; 
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outtextxy(50*x,23*y/2,"M"); 

^************************************** ****** *************************/ 
moveto(10*x,5*y);  lineto(20*x,5*y);  lineto(20*x,8*y); 

lineto(40*x,8*y);  lineto(40*x,l  l*y);  lineto(50*x,ll*y); 
moveto(10*x.5*y);  lineto(10*x,13*y/2);  lineto(30*x,13*y/2); 

lineto(30*x,19*y/2);  lineto(50*x,19*y/2);  lineto(50*x,ll*y); 


I 


^**********************************************************************^ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

^*  *********************************************************************/ 
static  void  step_solu;ion(void) 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(3*x/2,5*y/4,179*x/2,49*y/2); 

setcolor(  forecolor); 

^* ************  i*******************************************************^ 

pieslice(10*x.5*y, 0,359,2);  /*  A  */ 


/*  B  */ 
l*C*l 
I*  D  */ 
/*  E  */ 
/*  F*/ 
/*  G  */ 
/*  H  */ 
/*!*/ 
/*  J  */ 


pieslice(20*x.5*y, 0,359,2); 
pieslicef  1 0*x.  1 3*y/2, 0,359,2); 
pieslice(20*x.l3*y/2.0, 359,2); 
pieslice(30*x.  1 3*y/2,0,359,2); 
pieslice(20*x.8*y,0,359,2); 
pieslice(30*x.8*y, 0,359,2); 
pieslice(40*x,8*y,0,359,2); 
pieslice(30*x.  1 9*y/2,0,359,2); 
pieslice(40*x.  1 9*y/2, 0,359,2); 
pieslice(50*x,19*y/2, 0,359,2);  /*  K  */ 
pieslice(40*x.  1 1  *y, 0,359, 2);  /*  L  */ 

pieslice(50*x,l  I  *y ,0,359, 2);  /*  M  */ 

^* *******************************************************************/ 
outtextxy(  I0*x,9*y/2,"A"); 
outtextxy(20*x.9*y/2,"B"); 
outtextxy(8*x.l3*y/2,”C"); 
outtextxy(21  *x,25*y/4,"D"); 
outtextxy(31  *x,13*y/2,"E"); 
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outtextxy(18*x,8*y,"F"); 
outtextxy(3 1  *x,3 1  *y/4,"G"); 
outtextxy(41  *x,8*y,"H"); 
outtextxy(28*x,19*y/2,"I"); 
outtextxy(41  *x,37*y/4,"J"); 
outtextxy(50*x,9*y,"K"); 
outtextxy(38*x,l  l*y,"L"); 
outtextxy(50*x,23*y/2,"M"); 

^*  *************************************************************:(<******/ 


moveto(10*x,5*y);  lineto(20*x,5*y);  lineto(20*x,8*y); 

lineto(40*x,8*y);  lineto(40*x,l  l*y);  lineto(50*x,l  l*y); 
moveto(10*x.3*y);  lineto(10*x,13*y/2);  lineto(30*x,13*y/2); 

lineto(30*x,19*y/2);  lineto(50*x,19*y/2);  lineto(50*x,l  l*y); 


outtextxy(36*x,2*y,"k"); 
outtextxy(60*x,2*y,"V"); 
outtextxy(64*x,2*y,"U"); 
outiextxy(70*x,2*y,"L"); 
outtextxy(75*x,2*y, "Label"); 
outtextxy(86*x,2*y,"T" ); 
moveto(55*x.5*y/2);  lineto(58*x,5*y/2); 
moveto(59*x.5*y/2);  lineto(62*x,5*y/2); 
moveto(63*x.5*y/2);  lineto(66*x,5*y/2); 
moveto(68*x.?*y/2);  lineto(73*x,5*y/2); 
moveto(74*x,5*y/2);  lineto(165*x/2,5*y/2); 

«noveto(84*x.5*y/2);  lineto(89*x,5*y/2); 

outtextxy(70*x,3*y,"A"); 
outtextxy(75*x,3*y,  "A  <-  1"); 
outtextxy(6*x,3*y,"(l)"); 
outtextxy(56*x,4*y,"2"); 

J*  **********  fc********************************************************/ 


Pause(30*x,24*y); 

ouUextxy(60*x,4*y,"A"); 

outtextxy(64*x,4*y,"B"); 

outtextxy(70*x,4*y,"B"); 
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outtextxy(75*x,4*y,"B  <-  2"); 

outtextxy(84*x,4*y,"(AJB)"); 

outtextxy(21*x,5*y,"(2)"); 

Pause(30*x,24*y); 

setco!or(backc  olor ) ; 

nioveto(  10*x.5*y);  lineto(20*x,5*y); 

setlinestyle(3.0,3); 

setcolor(  forecolor); 

moveto(10*x,5*y);  lineto(20*x,5*y);  /*  add  (A,  B)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,80*x,49*y/2); 
setcoloi  (forecolor); 
outtextxy(56*x,5*y,"3"); 

outtextxy(60*x,5*y,"B" ); 

outtextxy(64*x.5*y,"D"); 

oultextxy(70*x,5*y,"D"); 

outtextxy(75*x,5*y,”D  <-  3"); 

outtextxy(84*x,5*y,"(B,D)"); 

outtextxy(45*x/2,25*y/4,"(3)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(20*x.5*y);  li»eto(20*x,13*y/2k 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

inoveto(20*x.5*y);  lineto(20*x,13*y/2);  /*  add  (B,  D)  to  T  */ 

setlinestyle(0,0.3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.80*x,49*y/2); 
setcolor(  forecolor); 
outtextxy(56*x,6*y:"4”); 

/********************+***********#+i,i<i,*i,4<mi,i,i,i,mmmll,ll,ll'tII'II':l<II'lliil'ilill</ 

outtextxy(60*x,6*y,"D"); 
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outtextxy(64*x,6*y  ,"E" ); 
outtextxy(70*x,6*y,"E"); 
outtexfxy(75*x,6*y,"E  <-  4"); 
outtextxy(84*x,6*y,"(D.E)"); 
outtextxy(33*x,13*y/2,"(4)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(20*x,  1 3*y/2);  lineto(30*x,  1 3*y/2); 

setlinestyle(3,0.3); 

setcolorfforecolor); 

moveto(20*x,13*v/2);  lineto(30*x,13*y/2);  /*  add  (D,  E)  to  T  */ 
setlinestyle(0.0.3); 

Pause(30*x.24*y); 
setcolor(backcolor); 
bar(29*x,23*y.80*x,49*y/2); 
setco!or(  forecolor); 
outtextxy(56*x,7*y."5 '); 

outtextxy(60*x,7*y."E"); 
outtextxy(64*x,7*y."G"); 
outtextxy(7()*x,7*y,"G"); 
outtextxy(75*x,7*y,"G  <-  5"); 
outtextxy(84*x.7*y."(E.G)"); 
outtextxy(  33*x.3 1  *y/4,"(5 )" ); 

Pause(30*x.24*y ); 
setcolor(backcolor); 

moveto(  39*x .  1 3  *y/2 );  lineto(  30*x , 8  *y ); 

setlinestyle(3.0,3); 

setcolorf  forecolor); 

niovefo(30*x.1 3*y/2);  lineto(30*x,8*y);  /*  add  (E,  G)  to  T  */ 

setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.80*x.49*y/2); 
setcolor(  forecolor); 
outtextxy(56*x,8*y,"6 '); 
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outtextxy(60*x,8*y,"G”); 
outtextxy(64*x,8*y,"H"); 
outtextxy(70*x,8*y,"H"); 
outtextxy(75*x,8*y,"H  <-  6"); 
outtextxy(42*x,8*y,"(6)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(30*x  ,8  *y );  lineto(40*x  ,8 *y ); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(30*x.8*y);  lineto(40*x,8*y);  /*  add  (G,  H)  toT  */ 

setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor ); 
bar(29*x.23*y.80*x,49*y/2); 
setcolor(forecolor); 
outtextxy(56*x,9*y,"7"); 

outtextxy(60*x,9*y,"H"); 

outtextxy(64*x,9*y,"J"); 

oultextxy(70*x,9*y,"J" ); 

outtextxy(75*x,9*y,"J 

outtextxy(84*x.9*y,"(H,J)”); 

outtextxy(36*x.9*y.’’(7)"); 

Pause(30*x.24*y ); 
setcoloi  ( backcolor ); 

moveto(40*x.8*y);  lineto(40*x,19*y/2); 
setlinesiyle(  3.0,3); 
setcolorf  forecolor); 

moveto(40*x.8*y);  lineto(40*x,19*y/2);  /*  add  (H,  J)  to  T  */ 

setlinestylet  0.0,3 ); 

Pause(30*x,24*y); 
setcolort  backcolor); 
bar(29*x.23*v.80*x,49*y/2); 
setcolort  forecolor); 
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outtextxy(56*x,10*y,"8"); 

/********************************************************************/ 

outtextxy(60*x,  1 0*y J" ); 

outtextxy(64*x,10*y,"K "); 

outtextxy(70*x,10*y,"K"); 

outtextxy(75*x,10*y,"K  <-  8"); 

outtextxy(84*x,10*y,"(J,K)"); 

outtextxy(46*x,9*y,"(8)"); 

Pause(30*x,24*y); 
se  tcolor(backc  olor ) ; 

moveto(40*x,19*y/2);  lineto(50*x,19*y/2); 

setlinestyle(3.0,3); 

setcolor(forecolor); 

iv>oveto(40*x.l9*y/2);  lineto(50*x,19*y/2);  /*  add  (J,  K)  to  T  */ 

setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.80*x,49*y/2); 
setcolor(  forecolor); 
outtextxy(56*x,l  1  *y,"9"); 

I* *******************************************************************/ 

outtextxy(60*x,J  l*y,"K"); 
outtextxy(64*x,l  1  *y,”M"); 
outtextxy(70*x,l  l*y,"M"); 
outtextxy(75*x,l  l*y,"M  <-  9"); 
outtextxy(84*x,l  l*y,"(K,M)"); 
outtextxy(46*x,23*y/2,"(9)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(50*x,19*y/2);  lineto(50*x,l  l*y); 

setlinestyle(3.0,3); 

setcolor(forecolor); 

moveto(50*x,19*y/2);  Iineto(5':*x,ll*y);  /*  add  (K,  M)  to  T  */ 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
se  tcolor(  backcolor ); 
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bar(29*x,23*y,80*x,49*y/2); 

setcolor(forecolor); 


outtextxy(56*x,12*y,"10"); 


/**************************** 


outtextxy(60*x,12*y,"M"); 
outtextxy(64*x,12*y,"L"); 
outtextxy(70*x,12*y,"L"); 
outtextxy(75*x,12*y,"L  <-  10"); 

outtextxy(84*x,12*y,"(M,L)"); 

outtextxy(39*x,23*y/2,"(10)"); 

Pause(30*x,24*y); 

setcoloi(backcoloi); 

moveto(40*x.  1 1  *y );  lineto(50*x,  1 1  *y ); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(40*x.l  l*y);  lineto(50*x,ll*y);  /*  add  (M,  L)  to  T  */ 
setlinestyle(0,0.3); 

Pause(30*x.24*y); 

setcolor(backcolor); 

bar(29*x,23*y,80*x,49*y/2); 

setcolor(forecolor); 

outtextxy(56*x,13*y,"H"); 

outtextxy(6()*x,  1 3*y,"L"); 
outtextxy(64*x,l3*y,"-"); 
outtextxy(60*x.  1 4*y,"M"); 
outtextxy(64*x,14*y,"-"); 
outtextxy(60*x,15*y,"K"); 
outtextxy(64*x,lf>*y,"-"); 
outtextxy(60*x,16*y,"J"); 
outtextxy(64*x,  I6*y,"l"); 
outtextxy(70*x,  1 6*y,"I"); 
outtextxy(75*x,l6*y,"i  <-  11"); 
outtextxy(84*x,16*y,"(J,I)"); 
outtextxy(29*x,10*y,"(I 1)"); 

Pause(30*x,24*y); 
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setcolor(backcolor); 

moveto(30*x.l9*y/2);  lineto(40*x,19*y/2); 
setlinestyle(3.0,3); 

setcolor(  forecolor); 

moveto(30*x.l9*y/2);  lineto(40*x,19*y/2);  /*  add  (J,  1)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,80*x,49*y/2); 
setcolor(forecolor); 
outtextxy(56*x ,  1 7*y,"  1 2"); 

/******************* ****************************************** *******/ 

outtextxy(60*x,17*y,’T'); 

outtextxy(64*x,17*y,"-"); 

outtextxy(60*x,  1 8*y  ,"J" ); 

outtextxy(64*x,18*y,"-"); 

outtextxy(60*x,19*y,"H"); 

outtextxy(64*x,19*y,"-"); 

outtextxy(60*x,20*y,"G"); 

outtextxy(64*x,20*y,"F"); 

outtextxy(70*x,20*y,"F"); 

outtextxy(75*x,20*y,"F  <-  12"); 

outtextxy(84*x,20*y,"(G,F)"); 

outtextxy(19*x,17*y/2,"(12)"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
moveto(20*x,8*y);  lineto(30*x,8*y); 
setlinestyle(3.0,3); 

setcolor(forecolor); 

nioveto(20*x,8*y);  lineto(30*x,8*y);  /*  add  (G,  F)  to  T  */ 

setlinesty  le(0.0,3 ); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.80*x,49*y/2); 
setcolor(  forecolor); 
outtextxy(56*x,21*y,"13"); 
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/***************** ******************************************%********y 


outtextxy(60*x,21  *y,"F"); 
outtextxy(64*x,21  *y 
outtextxy(60*x,22*y,"G"); 
outtextxy(64*x,22*y ); 
outtextxy  (60*x,23 *y E" ) ; 
outtextxy  (64 *  x  ,23  *y ,"  - " ) ; 
outtextxy(60*x,24*y,"D"); 
outtextxy(64*x,24*y  ,"C" ); 
outtextxy(7U*x,24*y,"C"); 


outtextxy(75*x,24*y,"C  <-  13"); 
outtextxy  ( 84*x,24*y  ,"(D,C )" ); 
outtextxy(9*x.7*y."(l3)"); 

Pause(15*x,24*y); 

setcolor(backcolor); 

moveto(  1 0*x ,  1 3 *y/2);  lineto(20*x,  1 3 *y/2); 

setlinestyle(3.0,3); 

setcolor(forecolor); 

moveto(10*x,13*y/2);  lineto(20*x,13*y/2);  /*  add  (D,  C)  to  T  */ 

setlinestyle(0.0,3); 

Pause!  I5*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,55*x,49*y/2); 
setcolor(  forecolor); 
outtextxy(35*x,23*y,"We  are  done."); 

/*%*%*%*%*****l|c**#*:|'*:|<%:f'****%***>fclt<>t>*>l<***:tc******:|c>l'*%**%*!|<>t'*>k*’<<>l<>|c****>(<’ly 


Pause(  1 5  *x,24*y ); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(3*x/2,5*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

outtextxy(2*x.2*y,"Use  the  depth  first  search  algorithm  to  find  a  minimal  spanning 
tree."); 

outtextxy(2*x,3*y, "(Start  at  A.  If  there  is  a  choice  of  edges  select  edges  according 
to"); 

outtextxy(2*x.4*y, "alphabetical  order.)"); 
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y********************************************************************/ 

pieslice(10*x,5*y,0,359,2);  /*  A  */  /*  redraw  the  graph  */ 

pieslice(20*x,5*y,0,359,2);  /*  B  */ 

pieslice(10*x,13*y/2,0,359,2);  /*  C  */ 
pieslice(20*x,l  3  *y/2, 0,359,2);  /*  D  */ 
pieslice(30*x,13*y/2, 0,359,2);  /*  E  */ 
pieslice(20*x.8*y  ,0,359,2);  /*  F  */ 

pieslice(30*x.8*y,0,359,2);  /*  G  */ 

pieslice(40*x,8*y,0,359,2);  /*  H  */ 

pieslice(30*x,19*y/2,0,359,2);  /*  I  */ 
pieslice(40*x,19*y/2,0,359,2);  /*  J  */ 
pieslice(50*x,  1 9*y/2,0,359,2);  /*  K  */ 
pieslice(40*x.l  I *y, 0,359,2);  /*  L  */ 

pieslice(50*x.l  l*y,0,359,2);  /*  M  */ 

/**%*************************%%*******************************%*******/ 


outtextxy(  10*x,9*y/2,"A"); 

outtextxy(20*x,9*y/2,"B"); 

outtextxy(8*x,13*y/2,"C"); 

outtextxy(21*x,25*y/4,"D"); 

outtextxy(31*xJ3*y/2.”E"); 

outtextxy(l8*x,8*y,"F"); 

outtextxy(3 1  *x,3 1  *y/4,"G"); 

outtextxy(41*x,8*y,"H"); 

outtextxy(28*x,19*y/2,"I"); 

outtextxy(41*x,37*y/4,’’J"); 

outtextxy(50*x,9*y,"K"); 

outtextxy(38*x,l  1  *y,"L"); 

outtextxy(50*x,23*y/2,"M"); 

moveto(l0*x.5*y);  lineto(20*x,5*y);  lineto(20*x,8*y); 
lineto(40*x,8*y);  iineto(40*x,I  l*y);  lineto(50*x,l l*y); 
moveto(10*x.5*y);  lineto(10*x,13*y/2);  lineto(30*x,13*y/2); 

Iineto(30*x,I9*y/2);  lineto(50*x,19*y/2);  Iineto(50*x,l  l*y); 
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static  void  confimi_exit(void) 

I 

char  ch; 

outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 

outtextxy(52*x,20*y,"Are  you  sure  ?  "); 

outtextxy(52*x.21*y,"Type  y  or  n  — >"); 

ch  =  getch  (); 

wliile  (!((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ’>•’)  II  (ch  ==  ’n’)  II  (ch  ==  *Y’)  II  (ch  =  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

) 

switch  (ch )  ( 

case  ’y’:  in_the_exercise  =  0; 
break: 

case  ’Y*:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

default  :  break; 

) 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q432.c 
:  Atiila  BAKAN 
:  Apr.  7, 1990 
:  Apr.  17, 1990 


DESCRIPTION  :  This  program  contains  the  second  exercise  about  the 
depth  first  search  for  spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC _ )  /*  Turbo  C  *1 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined (M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

^define  ff_name  name 

#elif  defined ( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 

static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


/************************************#*********************************/ 
/*  miscellaneous  global  variables  */ 

y**********************************************************************/ 

int  in_the_exercise  =  1 ; 


y* *********************************************************************/ 

/*  graphic  initialization  variables  */ 

y*****************#****************************************************y 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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^********************************************* ************************* ^ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

H t*********************************************************************i 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 

I**********************************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

!********************************************************************! 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresult(); 

^* ******************************************************************* I 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_eiTor)); 

exit(l); 

} 

/*********************************************************************! 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

p****************************************** ************************** j 

settext(); 

I******************************************************************** j 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL)BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 


/***************************>m*****************************************/ 


static  void  confirm_graph_exit(void) 

{ 


struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor) ; 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  I!  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  0; 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 
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switch  (ch)  { 

case  ’y’:  closegraphO; 
videoinitO; 
exit(O); 
break; 

case  ’Y’:  closegraphO; 
videoinitO; 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(forecolor) ; 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

ifC_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


j* *********************************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

/*********************************************** ****** ****** ********* 


static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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f***4 ■******************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 
void  Pause(ij) 
int  i,  j; 


settext(); 

outtextxy (i  j , ">»PRES S  A  KEY  TO  CONnNUE...<«"); 
if(waitkey()=ESC)  confirm_graph_exit(); 


/********************************* *  ************************** **********/ 

/*  main  routine  which  calls  exer  routine  */ 

/**********************************************************************/ 

void  main() 

{ 

exer(); 

} 
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^***********************************************V**********************/ 

/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 


y* ******************************************************************** 

static  void  exer(void) 

{ 

char  Ch; 


*/ 


init_graph(); 
setcolor(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,Max  Y -y/2); 
outtextxy(38*x,y/2, "EXERCISE  2"); 

I* ******************************************* ************************/ 

outtextxy(2*x,2*y,"Use  the  depth  first  search  algorithm  to  find  a  minimal  spanning 
tree."); 

outtextxy(2*x,3*y, "(Start  at  A.  If  there  is  a  choice  of  edges  select  edges  according 
to"); 

outtextxy(2*x,4*y,"alphabetical  order.)"); 

/********************************************************************/ 

pieslice(25*x,5*y,0,359,2);  /*  A  */ 

pieslice(25*x,  1 1  *y,0,359,2);  /*  B  */ 

pieslice(55*x,5*y,0,359,2);  /*  C  */ 

pieslice(55*x,  1 1  *y,0,359,2);  /*  D  */ 

pieslice(35*x,7*y,0, 359,2);  /*  E  */ 

pieslice(45*x,7*y,0, 359,2);  /*  F  */ 

pieslice(35*x,9*y,0,359,2);  /*  G  */ 

pieslice(45*x,9*y,0,359,2);  /*  H  */ 

/*********************************************************************/ 

outtextxy(25*x,9*y/2,"A"); 

outtextxy(25*x,23*y/2,"B"); 

outtextxy(55*x,9*y/2,"C"); 

outtextxy(55*x,23*y/2,"D"); 

outtextxy(33*x,7*y,"E"); 

outtextxy(46*x,7*y,"F"); 

outtextxy(33*x,9*y,"G"); 


902 


outtextxy(46*x,9*y,"H"); 

/*********************************t*************^**^^^^^^il^^^^^^ 

moveto(55*x,l  l*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 

Iineto(25*x,ll*y);  lineto(55*x,ll*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 
lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 

/********************************+*mmt,mmt!mmm:t[jC*+Jttn*:tl*:ic/ 

while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y,"Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy (15*x,16*y,  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 

outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y,"Enter  your  choice  here  —  >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

} 

} 

switch  (Ch)  ( 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,2l*y); 

bar(2*x,13*y,179*x/2,49*y/2); 
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setcolor(forecolor); 

show_alg(); 

break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outte\txy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcoior(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  V:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y,"solution.  So  press  any  key  to  "); 
outtextxy(52*x,21*y,"continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
break; 

default  :  break; 

} 

) 

closegraph(); 

} 
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/**********************************************************************/ 
/*  This  routine  gives  breadth  first  search  spanning  tree  algorithm  */ 

y*********************************************************************^ 

static  void  show_alg(void) 


outtextxy(  1 5*x,  1 2*y,  "DEPTH  FIRST  SEARCH  SPANNING  TREE 
ALGORITHM"); 

outtextxy(2*x,13*y,"Step  1  .  Pick  a  vertex  x.  L  =  {  x  }  Gist  of  vertices  in  the 
tree)"); 

outtextxy(2*x,14*y,"  T  =  0  Gist  of  edges  in  the  tree),  x  <-  1,  k  <-  2 
(counter)"); 

outtextxy(2*x,15*y,"Step  2  .  Pick  any  vertex  U  not  in  L,  such  that  U  is  adjacent  to 
the"); 

outtextxy(2*x,16*y,"  vertex  L  with  the  highest  label,  say  V."); 
outtextxy(2*x,17*y,"  L  =  LU  {  U  ),T  =  TU  (U,V),U<-k,  k<-k+l"); 
outtextxy(2*x,18*y,"Step  3  .  a)  If  all  vertices  are  in  L,  stop"); 
outtextxy(2*x,19*y,"  b)  If  not  all  vertices  are  in  L  "); 
outtextxy(2*x,20*y,"  1)  If  there  exist  a  vertex  adjacent  not  in  L  which  is  "); 
outtextxy(2*x,21  *y,"  adjacent  to  a  vertex  in  L,  go  to  Step  2"); 

outtextxy(2*x,22*y,"  2)  If  no  such  vertex  exists,  stop  and  output  that  the"); 
outtextxy(2*x,23*y,"  graph  is  not  connected."); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(2*x,47*y/4,179*x/2,49*y/2); 
setcolor(  forecolor) ; 


905 


/**********************************************************************/ 
/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

/**********************************************************************/ 


static  void  compare_solutions(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,47*y/4,179*x/2,49*y/2); 

^*^*****************4^**********************************************/ 


moveto(25*x,5*y);  lineto(25*x,l  l*y); 
lineto(55*x,l  l*y);  lineto(55*x,5*y); 
moveto(55*x,l  l*y);  lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y); 
lineto(35*x,9*y); 

^*****************4^*************************************************/ 

setcolor(forecolor) ; 

/********************************************************************/ 


outtextxy(27*x,9*y/2,"(l)"); 

outtextxy(22*x,l  l*y,"(2)"); 

outtextxy(56*x,ll*y,"(3)"); 

outtextxy(56*x,5*y,"(4)"); 

outtextxy(47*x,9*y,"(5)"); 

outtextxy(43*x,13*y/2,"(6)"); 

outtextxy(36*x,13*y/2,"(7)"); 

outtextxy(36*x,19*y/2,"(8)"); 


j*  4c  **  **  ***  ****  *  **  *  ***  *  ****  ****  *  *  *  **  *  l|c  +:  *  *  *  **  *  ******  ************** 


setlinestyle(3,0,3); 


^********************************************************************y 


moveto(25*x,5*y);  lineto(25*x,l  l*y); 
lineto(55*x,l  l*y);  lineto(55*x,5*y); 
moveto(55*x,l  l*y);  lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y); 
lineto(35*x,9*y); 

y'4<4r4<4t4r4^4<4r4^4c*4>4(4(4t4<4c4<4‘4t****4^****************************************// 


setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(3*x/2,17*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 


/*  *  *  *  *  *  «c  *  *  *  *  *  *  **  ****  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  **  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */ 


pieslice(25*x,5*y, 0,359,2);  /*  A  */ 

pieslice(25*x,l  l*y,0,359,2);  /*  B  */ 

pieslice(55*x,5*y,0, 359,2);  /*  C  *1 

pieslice(55*x,  1 1  *y,0, 359,2);  /*  D  */ 
pieslice(35*x,7'ky, 0,359,2);  /*  E  */ 

pieslice(45*x,7*y,0,359,2);  /*  F  */ 

pieslice(35*x,9*y, 0,359,2);  /*  G  */ 

pieslice(45*x,9*y,0,359,2);  /*  H  */ 


/*********************************************************************/ 


outtextxy(25*x,9*y/2,"A"); 

outtextxy(25*x,23*y/2,"B"); 

outtextxy(55*x,9*y/2,"C"); 

outtextxy(55*x,23*y/2,"D"); 

outtextxy(33*x,7*y,"E"); 

outtextxy(46*x,7*y,"F"); 

outtextxy(33*x,9*y,"G"); 

outtextxy(46*x,9*y,"H"); 


/***  ******************************************************************/ 


moveto(55*x,ll*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*x,l  l*y);  lineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 
lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 
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/*********************************************¥**.**********************/ 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/**********************************************************************/ 


static  void  step_solution(void) 

( 


pieslice(20*x,5*y  ,0,359,2); 
pieslice(20*x,l  l*y,0,359,2); 
pieslice(50*x,5*y,0, 359,2); 
pieslice(50*x,  1 1  *y  ,0,359,2); 
pieslice(30*x,7*y,0,359,2) 
pieslice(40*x,7*y,0, 359,2) 
pieslice(30*x,9*y,0,359,2) 
pieslice(40*x,9*y,0,359,2) 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(3*x/2,17*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

^********************************************************************y 

/*  A  */ 

/*  B  */ 

/*C*/ 

/*  D  */ 

/*  E  */ 

/*  F  */ 

/*  G  */ 

/*  H  */ 

^* *******************************************************************+/ 
outtextxy(20*x,9*y/2,"A"); 
outtextxy(20*x,23*y/2,"B"); 
outtextxy(50*x,9*y/2,"C"); 
outtextxy(50*x,23*y/2,"D"); 
outtextxy  (28  *x,7  *y ,  "E" ) ; 
outtextxy(42*x,7*y,"F"); 
outtextxy(28*x,9*y,"G"); 
outtextxy(41*x,9*y,"H"); 

/********* *************************************************************/ 

moveto(50*x,ll*y);  lineto(50*x,5*y);  lineto(20*x,5*y); 

lineto(20*x,l  l*y);  lineto(50*x,l  l*y);lineto(40*x,9*y); 

lineto(40*x,7*y);  lineto(30*x,7*y);  lineto(30*x,9*y); 

lineto(40*x,9*y); 

moveto(40*x,7*y);lineto(30*x,9*y); 

moveto(20*x,5*y);lineto(30*x,7*y); 

/***************************  ******************************  **********=iy 

outtextxy(56*x,5*y,"k"); 
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outtextxy(60*x,5*y,"V"); 
outtextxy(64*x,5*y,"U"); 
outtextxy(70*x,5*y,"L"); 
outtextxy(75*x,5*y, "Label"); 
outtextxy(86*x,5*y,"T"); 
moveto(55*x,l l*y/2);  lineto(58*x,l l*y/2); 
moveto(59*x,  1 1  *y/2);  lineto(62*x,  1 1  *y/2); 
moveto(63*x,  1 1  *y/2);  lineto(66*x,  1 1  *y/2); 
moveto(68*x,l  1  *y/2);  lineto(73*x,  1 1  *y/2); 
moveto(74*x,l l*y/2);  lineto(165*x/2,l  l*y/2); 
moveto(84*x,l  l*y/2);  lineto(89*x,l l*y/2); 

y********************************************************************/ 


outtextxy(70*x,6*y,"A"); 
outtextxy(75*x,6*y,"A  <- 1"); 

outtextxy(22*x,9*y/2,"(l)"); 

outtextxy(56*x,7*y,"2"); 

/I********************************************************************/ 


Pause(30*x,24*y); 

outtextxy(60*x,7*y,"A"); 

outtextxy(64*x,7*y,"B"); 

outtextxy(70*x,7*y,"B"); 

outtextxy(75*x,7*y,"B  <-  2"); 

outtextxy(84*x,7*y,"(A,B)"); 

outtextxy(16*x,l  l*y,"(2)"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
moveto(20*x,5*y);  lineto(20*x,l  l*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(20*x,5*y);  lineto(20*x,ll*y);  /*  add  (A,  B)  to  T  */ 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,80*x,49*y/2); 
setcolor(forecolor) ; 
outtextxy(56*x,8*y,"3"); 
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/+*> 1^********************** ****************** ft ********************** 


outtextxy(60*x,8*y,"B"); 
outtextxy  (64*x,8  *y,  "D"); 
outtextxy(70*x,8*y,"D"); 


outtextxy(75*x,8*y,"D  <-  3"); 
outtextxy(84*x,8*y,,,(BJ>)"); 
outtextxy(51*x,l  l*y,"(3)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

moveto(20*x,  1 1  *y);  lineto(50*x,  1 1  *y); 

setlinestyle(3,0,3); 

setcolor{forecolor); 

moveto(20*x,l  l*y);  lineto(50*x,l  l*y);  /*  add  (B,  D)  to  T  */ 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,80*x,49*y/2); 
setcolor(forecolor) ; 
outtextxy(56*x,9*y,"4"); 


/********************************************************************/ 


outtextxy(60*x,9*y,"D"); 
outtextxy(64*x,9*y,"C"); 
outtextxy(70*x,9*y,  "C"); 
outtextxy(75*x,9*y,"C  <-  4"); 
outtextxy(84*x,9*y,"(D»C)"); 
outtextxy(5 1  *x,5*y,"(4)"); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
moveto(50*x,l  l*y);  lineto(50*x,5*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(50*x,ll*y);  lineto(50*x,5*y);  /*  add  (D,  C)  to  T  */ 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,80*x,49*y/2); 
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setcolor(forecolor) ; 
outtextxy(56*x,10*y,"5"); 

/****************,* <****************************************J(tl|c**%*+%++^ 
uitiu,AiX>  (60*x,  lG*y  ,"C"); 

outtextxy(64*x,10*y,"-"); 

outtextxy(60*x,l  1  •‘y/’D’’); 

outtextxy(64*x,l  l*y,"H"); 

outtextxy(70*x,l  l*y,"H"); 

outtextxy(75*x,ll*y,"H  <-  5"); 

outtextxy(84*x,l  1  *y,"(D  ,H)"); 

outtextxy(42*x,9*y,"(5)"); 

Pause(30*x,24*y); 

setcolor(backcolor) ; 

moveto(50*x,l  l*y);  lineto(40*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(50*x,l  1  *y);  lineto(40*x,9*y);  /*  add  (D,  H)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,80*x,49*y/2); 
setcolor(forecolor) ; 

outtextxy(56*x,12*y,’'6"); 


outtextxy(60*x,12*y,''H"); 
outtextxy(64*x,12*y,"F"); 
outtextxy(70*x,  1 2*y,"F"); 
outtextxy(7 5*x,  1 2*y,"F  <-  6"); 

outtextxy(38*x,13*y/2,"(6)"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
moveto(40*x,9*y);  lineto(40*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 


moveto(40*x,9*y);  lineto(40*x,7*y);  /*  add  (H,  F)  to  T  */ 

setlinestyle(0,0,3); 
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Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,80*x,49*y/2); 

sctco!or(forecolor); 

outtextxy(56*x,13*y,"7"); 


^*******************************************************************/ 


outtcxtxy(60*x,  1 3*y,"F"); 
outtextxy(64*x,13*y,"E"); 
outtextxy(70*x,  1 3*y,  "E"); 
outtextxy(75*x,13*y,"E  <-  7"); 
outtextxy(84*x,13*y,"(F,E)"); 
outtextxy(29*x,13*y/2,"(7)"); 

Pause(30*x,24*y); 
setcoIor(backcoIor); 
moveto(40*x,7*y);  lineto(30*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(40*x,7*y);  lineto(30*x,7*y);  /*  add  (F,  E)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,80*x,49*y/2); 
setcolor(forecolor) ; 
outtextxy(56*x,14*y,"8"); 


I*  *  *  4c  *  *  #  *  4c  *  4c  *  *  4c  *  4c  ***  *  ***  4c  4c  ***  *  *  ****  *  ****  **  ******  *  *******************  *y» 


outtextxy(60*x,14*y,"E"); 

outtextxy(64*x,14*y,"G"); 

outtextxy(70*x,!4*y,"G"); 

outtextxy(75*x,14*y,"G  <-  8"); 

outtextxy(84*x,14*y,"(E,G)"); 

outtextxy(31*x,19*y/2,"(8)"); 

Pause(30*x,24*y); 

setcolor(backcolof); 

moveto(30*x,7*y);  lineto(30*x,9*y); 

setlincstyle(3,0,3); 

setcolor(forecolor) ; 
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moveto(30* x ,7 * y ) ;  lineto(30*x,9*y);  /*  add  (E,  G)  to  T  */ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backccIcr); 
bar(29*x,23*y,80*x,49*y/2); 
setcolor(forecolor); 
outtextxy(56x,l  l*y,"9"); 

/********************************************************** ******** **j 

outtextxy(60*x,16*y,"We  are  done."); 

t******************************************************************/ 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 
bar(3*x/2,17*y/4, 1 79*x/2,49*y/2); 
setcolorCforecolor) ; 

^********************************************************************/ 

pieslice(25*x,5*y,0,359,2);  /*  A  */ 

pieslice(25*x,l  l*y, 0,359,2);  /*  B  */ 

pieslice(55*x,5*y,0,359,2);  /*  C  */ 

pieslice(55*x,  1 1  *y,0,359,2);  /*  D  */ 

pieslice(35*x,7*y,0,359,2);  /*  E  */ 

pieslice(45*x,7*y,0,359,2);  /*  F  */ 

pieslice(35*x,9*y,0,359,2);  /*  G  */ 

pieslice(45*x,9*y,0,359,2);  /*  H  */ 

^* ********************************************************************/ 
outtextxy(25*x,9*y/2,"A"); 
outtextxy(25*x,23*y/2,”B"); 
outtextxy(55*x,9*y/2,"C"); 
outtextxy(55*x,23*y/2,"D"); 
outtextxy(33*x,7*y,"E"); 
outtextxy(46*x,7*y,"F"); 
outtextxy(33*x,9*y,"G"); 
outtextxy(46*x,9*y,"H"); 

^*********************************************************************y 
moveto(55*x,ll*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*x,l  l*y);  lineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 
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lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 
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static  void  confirm_exit(void) 

{ 

char  ch; 


> 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  =  ’n’)  II  (ch  =  *Y*)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  0; 

if((ch  =  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  *Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 
case  ’y’:  in_the_exercise  =0; 
break; 

case  ’Y’;  in_the_exercise  =  0; 
break; 

case  V:  setcolor(backcolor); 

bar(46*x,37*y/2, 1 79*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor) ; 

break; 

default :  break; 

} 

} 


I 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  minimal. c 
:  Atilla  BAKAN 
:  Feb.  14,  1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  minimal  spanning 
trees.  It  has  two  algoritms,  namely  Prim’s  Algorithm  and 
Kruskal’s  algorithm.  For  each  algorithm  two  examples  are 
solved  step  by  step. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <process.h> 
#include  "cxldef.h" 
#include  "cxlkey  .h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


#if  defined(_TURBOC_J  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_186)  &&  !  defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_naine  name 

#elif  defined! _ ZTC _ )  /*  Zoitech  C/C++  */ 
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#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 

#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confinn_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_a_key  (int  wrow); 

static  void  prejielp  (void); 

static  void  quitjwindow  (void); 

static  void  restore_cursor(void); 

static  void  shortdelay  (void); 

static  void  size_\vindow  (int  nerow,int  necol); 

/*  Tutorial  procedures  */ 

static  void  minim al_spanning_trees( void); 
static  void  defmition_4_4_l(void); 
static  void  example_4_4_l  (void); 
static  void  prim_alg  (void); 

static  void  alg_ex_prim_l  (void); 
static  void  alg_ex_prim__2  (void); 
static  void  kruskals_alg  (void); 
static  void  ex_kruskal_I  (void); 
static  void  ex_kruskal_2  (void); 
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static  void  exercises 
static  void  exerl 
static  void  exer2 
static  void  exer3 
static  void  exer4 
static  void  PI 
static  void  P2 
static  void  P3 
static  void  P4 
static  void  P5 
static  void  P6 
static  void  P7 
static  void  P8 
static  void  P9 
static  void  P10 
static  void  P 1 1 
static  void  P12 
static  void  P13 
static  void  P14 


(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 


/*  miscellaneous  global  variables  */ 

^*  *****************+*+ ★*************%****************>i'****>i<’i>ii'*ii'*****>!<i<<’ty 

static  int  *savescm,crow,ccol; 
static  WINDOW  w[10J; 
static  char  ssan[IOJ; 


/*  error  message  table  */ 

^***********************************l(c:|t******j(rJt<**********:t<*i|<>l<****!ti***i(c*!|y 


static  char  *error_text[]=  { 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  ==  1 ,  windowing  error  */ 
"Syntax:  CXLDEMO  (-s witches J\nV 
"Vt  -c  =  CGA  snow  eliminationV 
,f\t  -b  =  BIOS  screen  writing'll" 
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'\t  -m  =  force  monochrome  text  attributes", 
"Memory  allocation  error" 


/*  miscellaneous  defines  */ 

^fr*******************************************************************#*/ 


#define  SHORT_DELAY  18 
#define  H_WINT1TLE  33 


/♦itt********************************************************************^ 

/*  this  function  will  add  a  shadow  to  the  active  window  */ 

^fc^********************************************************************^ 

static  void  add_shadow(void) 


wshadow(LGREYLBLACK); 

) 


^*****j(<!(f*j|t***!!i:|<*.-|<**!|<J|<*!|<!fr***j|<**s(<***ltc**><<l(<l!e***l|t******  +  **********  +  i|t:|€j|e!|t*!(ti)<*>ty 


/*  this  function  pops  open  a  window  and  confinns  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 


static  void  confirm_quit(void) 

I 

struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if(!wopen(9,26,13,55,0,WHITEIJBROWN,WHITEIJBROWN))  error_exit(  1 ); 
add_shadow( ): 

wputs('\i  Quit  demo,  are  you  sure?N033A\156Y\b"); 

cleurkeysO; 

showcurQ; 

if(wgetchf(”YN",’Y')=='Y’)  nonnal_exit(); 

wcloseO; 

hidecurf ); 
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if(_mouse&MS_CURS)  msshoweurO; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 


/**********************************************************************/ 
/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

^*  *********************************************************************/ 
static  void  disp_sure_msg(void) 

I 

wprints(0,2,WHlTEI_BLUE,"Are  you  sure?"); 

) 

/♦I*********************************************************************/ 

/*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1 ,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

/a*********************************************************************/ 

static  void  error_exit(int  ermum) 


if(ermum)  { 

printf("\n%sNn",(eimum==l)?werrmsg():error_text[ermum]); 

exit(ermum); 

} 

I 

/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

static  void  initialize(void) 

I 

/*  initialize  the  CXL  video  system  and  save  cuirent  screen  info  */ 
videoinitO; 

1  eadeur(  &cro  w  ,&ccol ) ; 
if((savescrn=ssave( ))==NULL)  error_exit(3); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  j 

mssupportt  MS_FULL); 
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nisgotoxy(  12,49); 


/*  attach  [Alt-X]  to  the  confinn_quit()  function  */ 
se  tonkey  (0x2d00,conf irm_quit  ,0 ) ; 

/*  attach  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400,Pageup,0); 

/*  attach  [Ctrl  Pagedown]  to  the  Pagedown()  function  */ 
setonkey(0x7600,Pagedown,0); 


/*  initialize  help  system,  help  key  =  [FI  1  */ 
whelpdef("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED, 
WHlTEI_RED.REDI_LGREY,pre_help); 


I 

^*  ************ t********************************************************/ 


/*  this  function  is  called  anytime  to  switch  back  to  previous  window. 


*/ 


static  void  Pageup(void) 

I 


static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  -  1 ); 


I 

/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

static  void  Pagedown(void) 


static  WINDOW  handle; 


handle  =  whandleO; 
wactiv(handle  +  1 ); 
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static  void  pre_help(void) 

( 

add_shadow(); 

setonkey  (0x2d00  ,conf  irm_qu  it  ,0) ; 

I 

j************************************** ******************************** J 

/*  this  function  handles  nornial  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^*******^c****i(t****4c*******l(c**J(i***4<  +  ****l(i**<<**l(<*l((l(<*#*l(<*«tl(i*  +  **|t*******l(<>t<*^ 

static  void  nonnal_exit(void) 

I 

srestore(savescm): 
gotoxy_(crow.ccol ); 
if(_niouse)  mshidecur(); 
showcur(); 
exit(0); 


^************* ******************************************************** *^ 
/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

!**********************************************************************! 
static  void  press_a_key(int  wrow) 

I 

register  int  attrl; 
register  int  attr2; 


attrl=(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters(wrow, attrl, "Press  a  key"); 

wprints(wrow.O,LGREYl_RED,"Pgup/Pgdn"); 

hidecurO; 

if(waitkey()==ESC)  confinn_quit(); 
wcenters(wrow,attrl,"  "); 
wprints(wrow.0,attr2,"  "); 
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/********************************************************* *************/ 
/*  This  routine  causes  short  dealys  during  execution  */ 

y**********************************************************************/ 

static  void  siiort_delay(void) 


delay  _(SHORT_DELAY); 

) 


j* * *  * ** * * * *** * ** * * *  * * * * ★ **************** * **** * * * * +** *** * **** ** ** ** ** ** */ 

/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  [Q]uit  menu  items.  */ 

/♦♦I*******************************************************************’*/ 


static  void  quit_window(void) 

I 

static  WINDOW  handle=0; 


if(handle)  | 
wactiv(handle); 
wcloseO; 
handle=0; 


else  { 

handle=wopen(  14,41 ,1 7,70,0,YELLOWI_RED,WHITELRED); 
wputsf"  Quit  takes  you  back  to  theVi  demo  program’s  main  menu."); 


/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

static  void  restore_cursor(void) 


wtextatti(WHITEI_MAGENTA); 
showcur( ); 

} 
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**********  I***************** *********** i******************************/ 

/*  enlarges  or  shrinks  the  windows  */ 

/**********************************************************************/ 
static  void  size_window(int  nerow,int  necol) 

{ 

wsize(nerow, necol); 
short_delay(); 

) 

j*  ********************************* ******************** ****************y 

/*  moves  the  active  window  to  a  given  screen  coordinates  */ 

^**********************************************************************/ 
static  void  move_window(int  nsrow.int  nscol) 

I 

if(wmove(nsrow, nscol))  error_exit(  1 ); 
shoit_delay(); 

} 


/**********************************************************************^ 
/*  this  routine  that  calls  minimal  spanning  trees()  routine  whenever  Pageup  */ 

/*  or  pagdown  keys  are  pressed.  */ 

/**********************************************************************/ 


void  Pl() 

I 

wcloseall(); 

ininiinal_spaiining_trees(); 

) 


^* *********************************************************************/ 
/*  this  routine  that  calls  example  4-4-1  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P2( ) 

( 


wcloseall(); 

example_4_4_l(); 

I 
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y******** *********************************************** ***************^ 

/*  this  routine  that  calls  definition  4-4-1  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************^ 
void  P3() 

{ 

wcloseall(); 
definition_4_4_l  (); 

I 

y**********************************************************************y 

/*  this  routine  that  calls  prim_alg()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

sic********************************************************************/ 

void  P4( ) 

{ 

wcloseall(); 

priin_alg(); 

) 

^**********************************************************************y 

/*  tliis  routine  that  calls  alg_ex_prim_l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************^ 

void  P5() 

( 

wcloseall(); 

alg_ex_priin_l(); 


^**********************************************************************^ 
/*  this  routine  tliat  calls  alg_ex_priin_2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************^ 
void  P6( ) 

I 

wcloseallO: 

alg_ex_prim_2(); 
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y********************************  %****!(<**  *****!(<  Jf**********************^ 

/*  this  routine  that  calls  kruskals_alg  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************y 

void  P7() 

{ 

wcloseall(); 
kruskals_alg( ); 

} 

y^t********************************************************************^ 

/*  this  routine  that  calls  ex_kruskal_l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**  +  ************:|<************************  +  %*it<*>l<******l|<**"|(i(c]|c*!t:itt>)t*=l<*s|<!|<5|<*i|y 

void  P8() 

I 

wcloseallO; 

ex_kruskal_l(); 


y****  +  *:  ^-*-*  •:**************** .t******************************************/ 

/*  this  routine  that  calls  ex_kruskal_2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************/ 

void  P9() 

I 


wcloseallO' 

ex_kruskal_2( ); 


*/ 

*/ 


/*  this  routine  that  calls  exercises  routine  whenever  Pageup  or 

/*  Pagedown  keys  are  pressed, 
yi*********************************************************************^ 

void  P 1 0( ) 

{ 


wcloseallO; 
exercises( ); 
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I************************************************^^*^^^******/ 
/*  this  routine  that  calls  exerl  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************m***lt,mmti:mmmtt************j 


void  Pll() 
( 


wcloseall(); 
exerl  (); 

I 

/*  dus  routine  that  calls  exer2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  *y 

1****************************************^^^^^^^^^^^^^^^! 
void  P12() 

I 


wcloseall(); 

exer2(); 

) 


/*  this  routine  tliat  calls  exer3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  PI  30 

I 

wcloseallO; 

exer3(); 

} 

y******************* ***** t*********************************************/ 

/*  this  routine  that  calls  exer4  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  *y 

/****************************************m***i'*mimA'*************+*/ 
void  P  14(.) 

I 


wcloseallO; 
exer4( ); 
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y**********************************************************************y 

/*  main  routine  that  calls  minimal  spanning  tree  tutorial  */ 

y****** ****************************************** **********************y 

void  niainO 


initialize(); 

minimal_spanning_trees( ); 

I 


y**********************************************************************y 

/*  Routine  that  calls  definition,  example  and  algorithm  routines  about  */ 

/*  minimal  spanning  trees.  */ 

y*********************************  *********************  ****************y 


static  void  minimal_spanning_trees(void) 

I 


register  uit  *scm; 


if((scm=ssave())==NULL)  error_exit(3); 
cclrscm(LGREYIJBLUE); 

y**********************^*********************************************y 

/*  attach  [Pagedown]  to  the  example_4_4_i()  function  */ 
setonkey(0x5 1 00,P2,0); 

y*  ************* ******************************************************y 

if((  wl  1  ]=wopen(6, 1 5,11 ,54,3  ,LCY  AN  l_GREEN  3  LACKI_GREEN )  )=0) 
error_exit(l ); 

wtitle("lMinimal  Spanning  Treesj",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTTTLE); 

wputsw("  We  will  try  to  introduce  spanning  tree  concept  with  an  example"); 

press_a_key(3); 

wslide(0,0); 

sliort_delay(); 

example_4_4_  1  ( ); 

srestore(scni); 

I 
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/**********************************************************************/ 
/*  This  routine  gives  an  example  step  by  step  implementation  of  Prim’  */ 

/*  algorithm.  */ 

/******************************+***************************************/ 
static  void  example_4_4_l  (void) 

I 


/********************************************************************/ 
/*  attach  [Pageup]  to  the  minimal_spanning_trees()  function  */ 
setonkey(0x4900,Pl  .0); 

Z********************************************************************/ 

/*  attach  [Pagedown]  to  the  definition_4_4_l()  function  */ 
setonkey(0x5100,P3,0); 

/***.*  +  ****  +  +  *  +  +  *  +  *********  +  ***  +  *****  +  *****  +  *  +  +  ***  +  *****  +  *:(<***********/ 

if((w[2J=wopen(6,15,ll,54,3,REDLLGREY,BLACKLMAGENTA))==0) 
error_exit(  l ); 

wtitlef [Minimal  Spanning  Trees]", TCENTER,_LGREYI YELLOW); 
add_shadow( ): 

wputsw("  Now  consider  a  map.  There  are  towns  and  roads  between  these  towns" 

"  Can  you  think  of  the  situation  as  a  graph?"); 
press_a  _key(  3 ); 
wslide(0,39): 
short_delay(); 


/********************************************************************/ 
if((w|3]=wopen(6,l5,10,65,3,BLACKI_CYAN,REDI_LGREY))==0)  error_exit(l); 
wtitle("[Minimal  Spanning  Trees  -  Example_4_4_l]", 

TCENTER,_LGREYILBLUE); 

add_shadow( ); 

wputs("\n  To  see  the  grapli  "); 

press_a_key(2); 

wclosealK); 

spawnl(P_WAIT,"exajnp441.exe",NULL); 
cclrscni(LGREYI_BLUE); 
definition_4_4_l  ( ); 
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/*  Routine  that  gives  the  definition  of  minimal  spanning  trees.  */ 

I  *  * **** ** ** * ****** *************** * **** **** * **** *** * *** *************** * * j 

static  void  definition_4_4_l(void) 

I 

z********************************************************************/ 

/*  attach  [Pageup]  to  the  example_4_4_l()  function  */ 

setonkey(0x4900,P2,0); 

^if*******************************************************************^ 

/*  attach  [Pagedown]  to  the  prim_alg()  function  */ 
setonkey(0x5 1 00,P4,0); 

/********************************************************************/ 
if((w[4]=wopen(6,20,16,58,3,BLACKI_CYAN,REDI_LGREY))==0)  error_exit(l); 
wtitle("| Minimal  Spanning  Trees  -  Definition__4_4_l  J", 
TCENTER.JLGREYILBLUE); 
add_shadow( ); 

wputsw("  A  mmimal  spaiming  tree  in  a  weighted  graph  is  a  spanning" 

"  tree  for  which  the  weight  of  the  tree  is  as  small  as  possible."); 
wputs("\n\n" ): 

wputsw("  In  other  words,  a  minimal  spanning  tree  is  a  spanning  tree  such" 

"  that  no  other  spanning  tree  has  a  smaller  weight."); 
press_a_key(8); 
wclose(); 


if((wl4]=wopen(6,20,12,58,3,GREENLBLACK,BLACKI_RED))==0) 
error_exit(  1 ); 

wtitleOMinimal  Spaiming  Trees]", TCENTER,_LGREYILBLUE); 
add_shadow( ); 

wputsw("  Now  we  will  introduce  you  two  algorithms  to  solve  this  type" 
"  of  problems.  First  one  is  called  Prim's  Algorithm."); 
press_a_key(4 ); 
wslide(O.O); 


prim_aig(); 

) 
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/*  routine  that  introduces  the  Prim’s  minimal  spanning  tree  algorithm  */ 

yl**************************************************************^*******/ 

static  void  prim_alg(void) 

I 


I* *  *  * ****** * * * * *** * ** *** *  *  * * * * * + *** ** ** * +*+* *** * ** *  * * ** * **** ** * * * +** *j 

/*  attach  [Pageupl  to  the  definition_4_4_l()  function  */ 
setonkey(0x4900,P3 ,0 ); 

I***********  ******  l********************  *********  ****  ******************/ 

/*  attach  [Pagedown]  to  the  alg_ex_prim_l()  function  */ 
setonkey(0x5 1 00, P5 ,0); 

/************************************************************!)<*******/ 

if((w[5]=wopen(0,15,24,65,3,BLACKI_GREEN,REDI_BLACK))==0) 
error_exit(l ); 


wtitle("| Prim's  Minimal  Spanning  Trees  Algoritlun]",TCENTER,BLUEI_LripEY); 
add_shadow( ): 

wputsw("The  Method  in  this  algorithm  as  briefly,  is  as  follows  :"); 
wputs("\n\n" ): 

wputsw("  .  Creates  a  set  L  of  the  vertices  of  the  tree  T  in  the" 

"  order  it  examined  them"); 
wputs('Vi"); 

wputsw("  .  Build  the  tree  by  examining  all  edges  from  all  vertices" 

"  which  is  already  in  L  to  the  ones  which  are  not  included  " 

"  L  yet,  and  chooses  the  one  with  min  weight  to  add  too  the" 

"  minimal  spanning  tree. 
wputs(”\nV»" ); 

wputsw("  Now,  the  actual  algorithm  is  as  follows  :"); 
wputs(”\n"); 

wputsw("  Step  1  .  Pick  an  arbitrary  initial  vertex  x."); 
wputs("\n  L  =  (  x  >,  T  =  (J\n"); 

wputsw'"  Step  2  .  If  ILI  =  n  then  stop  and  output  T."); 
wputst'VT); 

wputsw("  Step  3  .  Else,  find  all  edges  with  one  vertex  Ui  in  L  and  the" 

"  other  Vj  which  is  not  in  L  yet.  Pick  the  one  with  least  weight," 

"(U.  V)"); 

wputs('^i  L  <-  LU  { V  | " ); 


931 


wputsfSn  T  <-  TU  {U,  V)"); 

wputs("\n  go  to  Step  2.")! 

press_a_key(22); 

wslide(0,27); 

short_delay( ); 

alg  ex_prim_l(); 


I* ********************************************************* ************ j 

/*  This  routine  gives  an  example  about  six  towns  and  high  ways  between  these  */ 

/*  towns.  It  shows  the  implementation  of  Prim’s  algorithm  to  this  problem  */ 

/*  in  s^o  by  step  basis.  */ 

I****# **************************************** *************************J 

static  void  alg_ex_prim_l  (void) 

{ 

/*  attach  [Pageupl  to  the  prim_alg()  function  */ 
setonkey(0x490l).P4,0); 

/*  attach  IPagedownl  to  the  alg_ex_prim_2()  function  */ 
setonkey(0x5 100,P6,0); 

/******Jk*******************>l<=l<>l<!)<j(<lt<lttJt<**>l<*l|<***>l<l)<*********")'*’l<’l<>l<’l'  +  *>l<>l<>(<***’(y 

if((vv[6j=wopen(6,l  J,  12, 65,3, GP^^NLB  LACK, BLACKI_RED))==0) 
error_exit(  1 ); 

wtitle("[Minimal  Spanning  Trees  -  Example_4_4_2]", 

TCENTER,_LGREYILBLUE); 

add_shadow(); 

wputsw("  Now  let's  go  back  to  our  first  example  and  see  how  we  are" 

"  going  to  apply  this  algorithm  step-by-step"); 
press_a_key(4); 
wcloseall(); 

spawnl(P_W  AIT, "examp442.exe", NULL); 

cclrscm(LGREYI_BLUE); 

alg_ex_prim_2(); 
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/*  Another  example  about  a  Prim’  Algoritltm  implementation  */ 

static  void  alg_ex_prim_2  (void) 


/*  attach  [Pageup]  to  the  alg_ex_prim_l()  function  */ 
setonkey(0x4900,P5,0); 

/********************************************************************/ 

/*  attach  [Pagedown]  to  the  kruskals_alg()  function  */ 

setonkey(0x5100,P7,0); 

y*****l|tlk**!(c*****j((*!)[****l)<***l(<****^I^<^|*******  +  ****%*l|tl(<**!t<j|t***l|C*********%^ 


if((w[7]=wopen(6, 15,11 ,65,3, GREENI_B  LACK, BLACKI_RED))==0) 
error_exit(l); 

wtitle("lMinimal  Spanning  Trees  -  Example_4_4_3]", 
TCENTER,_LGREYILBLUE); 
add_shadow( ); 

wputsOn  Mow  about  one  more  example  ?"); 

press_a_key(3); 

wcloseall(), 

spawnl(P_WAJT,' "examp443.exe",  NULL); 
cclrsci  n(  LG  RE  Y  l_B  LU  E); 
kruskals_alg(): 

I 
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/**********************************************************************/ 
/*  routine  that  introduces  the  Kruskal’s  minimal  spanning  tree  algorithm  */ 

/*****************#****jt<******si<*****s|<%!|ti|<itt:(iii:t<itii|.*!|i>(<s|<*  +  !t<*****  +  *%****s|<*****Y 


static  void  kruskals_alg(void) 


/*  attach  [Pageup]  to  the  alg_ex_prim_2()  function  */ 
setonkey(0x4900,P6,0); 

/*  attach  [Pagedown]  to  the  ex_kruskal_l()  function  */ 
setonkey(0x5 1 00,P8,0); 

if((w[8]=wopen(6, 20,1 1,58, 3 ,GREENI_B  LACK, BLACKI_RED))=0) 
error_exit(  1 ); 


wtitle(" [Minimal  Spanning  Trees]", TCENTER,_LGREYiLBLUE); 
add_shadow(): 

wputs("\n  Second  algorithm  is  called  Kruskal’s  algorithm."); 

press_a_key(3); 

wslidefl  ,20); 

if((wl9]=wopen(6, 15,1 8,65,3 ,BLACKI_GREEN,REDI_CYAN))==0)  error_exit(l); 
wtitIe(''[Kruskal's  Minimal  Spanning  Tree  Algorithm]", 
TCENTER,BLUEI_LGREY); 
add_shadow( ); 

wputsw("The  algorithm  is  as  follows  :"); 
wputs("\n\n" ); 

wputswC  Step  1 .  Order  the  edges  from  smallest  weight  to  largest."); 
wputs('Vi" ); 

wputsw(”  Step  2.  Add  the  edges  in  order,  as  long  as  a  cycle  is  not" 

"  created.  T  can  be  disconnected  until  it’s  completed.”  ); 
wputsf'Vi"); 

wputsw(”  Step  3.  If  all  nodes  are  visited  STOP,  or  else  GO  TO  Step  2."); 

press_a_key(10); 

shortdelayO; 

wslide(7,I5); 

short_de!ay( ); 

ex_kruskal_l< ); 

) 
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y**********************************************************************y 

/*  This  routine  gives  an  step  by  step  example  implementation  of  Kruskal’s  */ 

/*  algorithm  */ 

/+***************************************************  +  **************** 
static  void  ex_kruskal_l  (void) 

{ 


/******************************************************+*************/ 


/*  attach  [PageupJ  to  the  kruskals_alg()  function  */ 
setonkey(0x4900,P7,0); 


^/*  *********************************************> tr*********************/ 


/*  attach  [Pagedown]  to  the  ex_kruskal_2()  function  */ 
setonkey(0x5 1 00.P9.0); 

if((  w[  1 0]=wopen(6, 1 5 , 1 0,65 ,3  ,BLACKI_GREEN3  LACKI_LGREY  ))==0) 
error_exit(  1 ); 

wtitle("[Kruskal’s  Algorithm  -  Example_4_4_4]",TCENTER,BLUEI_LGREY); 
add_shadow( ): 

wputs("\n  It  is  better  to  see  an  example.,."); 

press_a_key(2); 

wcloseallO; 

spawnl(P_WAIT."examp444.exe",NULL); 
cclrscm(LGREYI_BLUE); 
ex_kruskal_2( ); 


) 
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^* **************************************************** *****************/ 
/*  This  routine  gives  an  step  by  step  example  implementation  of  Kruskal’s  */ 

/*  algorithm  */ 

/*************************** ************* ********************** ********y 


static  void  ex_kruskal_2  (void) 

( 


/********************************************************************/ 
/*  attach  [Pageup]  to  the  ex_kruskal_l()  function  */ 
setonkey(0x4900,P8 ,0); 

^*******++******************+********************* ****************** *^ 
/*  attach  [Pagedown]  to  the  exercises!)  function  */ 
setonkey(0x5 100,P  1 0,0); 

^*******^t************************************************************^ 


if((w[  1  ]=wopen(6, 1 5 , 1 1 ,65 ,3,GREENI_BLACK,B  LACKI_RED))=0) 
error_exit(  1 ); 

wtitle(" [Minimal  Spanning  Trees  -  Example_4_4_5]", 
TCENTER,_LGREYILBLUE); 
add_shadow( ); 

wputsw("  We  now  will  solve  the  second  example  that  we  solved" 

"  with  Prim’s  algorithm  by  using  Kruskal’s  algorithm."); 
press_a_key(3); 
wcloseall(); 

spawnl(P_W  AIT, "examp445.exe", NULL); 

cclrscm(LGREYIJBLUE); 

exercises!); 
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^i*********************************************************  ***********  IfJ 

/ *  This  routine  makes  a  small  quiz  about  the  minimal  spanning  trees.  */ 

/***** ********** ******************** *********** *************** *********/ 
void  exercises(void) 


I 

register  int  *screen; 


/***********  *****  ****************************************************/ 
/*  attach  [Pageup]  to  the  ex_kruskal_2()  function  */ 

setonkey(0x4900,P9,0); 

^********************************************************************^ 


/*  attach  [Pagedown]  to  the  exerl()  function  */ 
setonkey(0x5 1 00, PI  1 ,0); 

^********************************************************************^ 


if((w  [  1  ]=wopen(5 , 1 5 , 1 0 ,65 ,3  ,LC  Y  ANI_GREEN,WHITELRED»==0) 
error_exit(l); 

wtitle("  [Minimal  Spanning  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTlTLE); 

add_shadow( ); 

wputs("V ); 

wputsw("  We  have  completed  our  presentation  of  this  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  "); 
press_a_key(3); 
short_delay(): 
wclose(); 

if((screen=ssave())==NULL)  error_exit(3);  { 
exei  1(J; 

/*****************************★**************************************/ 


/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  ( 
mssupportt  MS_FULL); 
msgotoxy(  12,49); 


> 

srestore(screen); 
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/*  Dummy  function  to  call  the  actual  exercise  4.4.1  */ 

^*****+*********l(<*)(c*%*********!(C*^*l(<**l(l***l(lltl*lt<********>|t*%********ltl******y 

static  void  exerl(void) 

I 

^t*******************************************************************/ 

/*  attach  [Pageup]  to  the  ex_kruskal_2()  function  */ 

setonkey  (0x4900 ,P9 ,0 ) ; 

y********************************************************************^ 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5 100,P12,0); 

y********************************************************************^ 


if((wl  1  ]=wopen(5 , 1 5 ,10,65,3  ,LC  Y  ANI_GREEN,WHITEI__RED))==0) 
enor_exit(l); 

wtitle("[Minimal  Spanning  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNTITLE); 

add_shadow( ); 

wputs("\n"); 

wputsw("  Here  is  the  first  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q441.exe",NULL); 

cclrscm(LGREYI_BLUE); 

exer2(); 
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/************  **********  *****************  ************************  *****  **/ 
/*  Dununy  function  to  call  the  actual  exercise  4.4.2  */ 

/**********************************************************************/ 
static  void  exer2(void) 

I 

^********************************** **********************************/ 
/*  attach  [Pageup]  to  the  exerl()  function  */ 

setonkey(0x4900,Pl  1,0); 

^********************************************************************y 

/*  attach  [Pagedown]  to  the  exer3()  function  */ 
setonkey(0x5 1 00, P 1 3,0); 

/********************************************************************/ 
if((wllJ=wopen(5,15,10,65,3,LCYANLGREEN,WHlTELRED))==0) 
error_exit(  1 ); 

wtitle("[Minimal  Spanning  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow( ); 

wputs("Nn"); 

wputsw("  Here  is  the  second  question.  "); 

press_a_keyf3 ); 

wclose(); 


spawnl(P_W  AIT, "q442.exe", NULL); 

cclrscni(LGREYIJBLUE); 

exer3(); 
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I**********************************************************************/ 

/*  Dummy  function  to  call  the  actual  exercise  4.4.3  */ 

^i*********************************************************************^ 

static  void  exer3(void) 

I 


/**  +  ***  +  *****  +  ****  +  *  +  *  +  ***  +  +  *  +  +  *  +  >t<  +  +  *  +  *  +  *ifr>fr>4<  +  *>t<  +  +  +  +  +  +  +  *  +  ******  +  *  +  *  +  +  *y 

/*  attach  [Pageup]  to  the  exer2()  function  */ 

setonkey(0x4900,P12,0); 

/********************  ******  ******  ************************************/ 


/*  attach  [Pagedown]  to  the  exer4()  function  */ 
setonkey  (0x5 1  OOJPi  4 ,0) ; 

^* *******************************************************************/ 


if((w[  I  ]=wopen(5,15, 10,65 ,3,LCYANI_GREEN,WHITELRED))==0) 
error_exit(  1 ); 

wtitle("  [Minimal  Spanning  Trees]" ,TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTn'LE); 

add_shadow( ): 

wputs("Vi"); 

wputsw("  Here  is  the  third  question.  "); 

press_a_key(3 ): 

wclose(); 

spawnl(P_W  ATT, "q443.exe"  .NULL); 
ccl  rscm(  LG  R  EY  l_B  LU  E) ; 
exer4(); 
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/*  Dummy  function  to  call  the  actual  exercise  4.4.4  */ 

/**********************************************************************/ 


static  void  exer4(void) 

( 

/****************************************************************>!<***/ 
/*  attach  [Pageup]  to  the  exer3()  function  */ 

setonkey(0x4900,Pl  3,0); 

if((w[l]=wopen(5,15,10,65,3,LCYANLGREEN,WHITELRED))==0) 

error_exit(J); 

wtitle("[Minimal  Spanning  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow( ); 

wputs("\n"); 

wputsw("  Here  is  the  forth  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q444.exe",NULL); 

cclrscm(LGREYI_BLUE); 

norma!_exit(): 

) 
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/*  PROGRAM  :  examp44l.c 
AUTHOR  :  Atilla  BAJCAN 
DATE  :  Apr.  18, 1990 
REVISED  :  Apr.  18,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  minimal  spanning 
trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey  .h" 

#include  "cximou.h” 

#if  defined(__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_l86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfust(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 
#define  ff_name  name 

#elif  defined! _ ZTC _ )  I*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/*  graphic  initialization  variables  */ 

^♦if********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(  1 ); 
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/*********************************  ****  **********  ******  +  *  +  +  +  >(•  +  >(<  +  *******>(</ 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

^*  *********************************************************************/ 
static  void  init _graph(void) 


I 

int  xasp,  yasp; 


register_drivers( ); 
graphdriver  =  DETECT; 

y********************************************************************^ 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

y*  *********:';**  *******************************************************y 


if(graph_error  <  0)  ( 

puts(grapherrenrsg(graph_err.'.r)); 

exit(l); 


y********************************************************************y 

MaxX  =  getmaxx(); 

MaxY  =  getmaxy(); 
x  =  MaxX/80; 
y  =  MaxY/25; 

y********************************************************************y 

settext(); 

y********************************************************************y 

if  ((graplimode  ==  CGAH1)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATr400MED)  II  (graphmode  ==  MCGAHI)  II  (graplunode  ==  ATT400H1))  { 
setfillstyle(SOLlD_FILL, BLACK); 
backcolor  =  BLACK; 


else  ( 

setfilIstyle(SOLlD_FlLL,BLUE); 
backcolor  =  BLUE; 

) 

forecolor  =  WHITE; 
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/********************************************************************** y 
/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

I 

settextstyle(0,0,0); 

setlinestyle(0.4,3); 

settextjustify(HORIZ_DlR,CENTER_TEXT); 

) 


/^ifi*******************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/j^*********************************************************************/ 

void  Pause(i.j) 
int  i.  j; 

( 

settext(); 

outtextxy(i.j,”>»PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  { 
closegraphO; 
videoinitt); 
exit(O); 


*  *  j 
*/ 
**/ 

void  main( ) 

( 

exer( ); 


/*  main  routine  which  calls  exer  routine 
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/*  This  routine  illustrates  a  minimal  spanning  tree.  */ 

/************  :!<*********************************************************^ 

void  exer() 


init_graph(); 

setcolor(  forecolor); 

bar(0,0,MaxX.MaxY); 

rect  anglefx  ,y  ,MaxX-x  ,Max  Y  -y/2 ) ; 

outtextxy! 3  8  *x  ,y/2 ,"  EXAMPLE  4-4- 1" ); 

pieslice(25*x,4*y,0,359,2);  /*  Marina  */ 

piesliee(55*x.2*y,0,359,2);  /*  Greenwillage  */ 

pieslice(65*x,8*y,0,359,2);  /*  Bigsur  */ 

pieslice(30*x,8*y,0,359,2);  /*  Monterey  */ 

pieslice(45*x.l  l*y/4 ,0,359,2);  /*  Salinas  */ 

pieslice(50*x.8*y,0,359,2);  /*  Carmel  */ 

moveto(25*x,4*y);  lineto(55*x,2*y);  lineto(65*x,8*y); 

lineto(30*x,8*y);  lineto(25*x,4*y); 

moveto(30*x,8*y);  lineto(45*x,l l*y/4);  lineto(50*x,8*y); 

outtextxy  (24*x,3*y, "Marina”); 

outtexfxy(40*x,5*y/3, "Salinas"); 

outte/vtxy(57*x,2*y  /’Greenwillage"); 

outtextxy(67’rx.8*y.”Big  Sur"); 

outtextxy(45*x,9*y, "Carmel"); 

outtextxy!  25  *x,9*y,  "Monterey"); 

outtextxy!  33*x.4*y,  "8"); 

outtextxy(49*x,3*y,"3"); 

outtextxy(63*x,6*y,"?0”); 

outtextxy(56*x,15*y/2."15"); 

outtextxy!  37  *x,l  5  *y/2,"  15"); 

outiextxy(37*x,6*y.”l  2"); 

outtextxy  !29*x,6*y,"5"); 

outtextxy(50*x,6*y,'T5"); 

^ *******************************************************************/ 
outtextxy!  2*x.  i  3*y. "Here  we  have  the  town  names  as  nodes  and  the  roads  as 
edges  of  the  graph."): 
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outtextxy(2*x,14*y,"The  problem  is  to  find  a  road  network  of  minimal  total  length 
that  connects"); 

outtextxy(2*x,15*y,"all  the  towns."); 

outtextxy(2*x,17*y,"By  inspection,  we  can  begin  by  including  those  roads  between 

that  are  seperated"); 

outtextxy(2*x,18*y,"by  the  least  distance.  There  must  be  a  path  between  any  pair 
of  towns,  but"); 

outtextxy(2*x,19*y, "there  must  not  be  any  roads  that  would  cause  a  loop  to  form, 
since  that  leads"); 

outtextxy(2*x,20*y,"to  extra  paths.  This  leads  us  to  a  new  concept,  MINIMAL 

SPANNING  TREE."); 

outtextxy(2*x.21*y,"Now  let’s  leave  this  problem  at  this  stage  and  see  some 
definitions.  Later  on"); 

outtextxy(2*x.22*y,"we  will  come  back  and  see  how  we  will  solve  it."); 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM  :  examp442.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  18,  1990 
REVISED  :  Apr.  18, 1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  implementation 
of  Prim’s  algorithm. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined (_TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,'o,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 


948 


#define  _G  RAPH_T_DEFINED 


/*  function  prototypes  */ 

f*  Utility  functions  */ 
static  void  init _graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 


/************ ****************************** ** ********************* *****/ 
/*  graphic  initialization  variables  */ 

/**********************************************************************/ 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/**********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


949 


^**t^*ncif*t*********************************************>k***************^ 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/ft*********************************************************************/ 


static  void  init__graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

^*****************************************£*************************/ 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresult(); 

/********************************************************************/ 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_eiTor)); 

exit(l); 

} 

/********************************************************************/ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


} 
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/****************4^^**************************************************/ 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  =  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor) ; 

bar(3 1  *x,23*y  ,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’ y closegraph(); 
videoinitO; 
exit(0;; 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CXJRS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 


^**********************************************************************y 


static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/**********************************************************************/ 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()=ESC)  confirm_graph_exit(); 

} 

/**********************************************************************/ 
/*  main  routine  that  calls  exer  routine  */ 

/**********************************************************************/ 


void  main() 

{ 

exer(); 

} 
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I**********************************************************************/ 

/*  This  routine  illustrates  an  implementation  of  Prim’s  MST  algorithm.  */ 

I**********************************************************************/ 


void  exer() 

{ 


init_graph(); 
setcolor(forecolor) ; 
bar(0,0,MaxX,Max  Y) ; 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2,"EXAMPLE  4-4-2"); 


/*************4^*****************************************************/ 


pieslice(3*x,4*y,0,359,2);  /*  Marina  */ 

pieslice(33*x,2*y,0,359,2);  /*  Greenwillage  */ 

pieslice(43*x,8*y,0,359,2);  /*  Bigsur  */ 

pieslice(8*x,8*y, 0,359,2);  /*  Monterey  */ 

pieslice(23*x,  1 1  *y/4 ,0,359,2);  /*  Salinas  */ 
pieslice(28*x,8*y,0,359,2);  /*  Carmel  */ 

moveto(3*x,4*y);  lineto(23*x,il*y/4);  lineto(33*x,2*y); 
lineto(43*x,8*y);  lineto(8*x,8*y);  lineto(3*x,4*y); 
moveto(8*x,8*y);  lineto(23*x,l  l*y/4);  lineto(28*x,8*y); 
outtextxy(2*x,3*y,"Marina"); 
outtextxy(18*x,5*y/3, "Salinas"); 
outtextxy(28*x,5*y/3,"Greenwillage"); 
outtextxy(36*x,17*y/2,"Big  Sur"); 
outtextxy(23*x,9*y, "Carmel"); 
outtextxy(3*x,9*y, "Monterey"); 
outtextxy(l  l*x,4*j  ,"8");  /*  (Marina,  Salinas)  */ 

outtextxy(27*x,3*y,"3");  /*  (Salinas,  Greenwillage)  */ 

outtextxy(36*x,6*y,"30");  /*  (Greenwillage,  Bigsur)  */ 

outtextxy(34*x,15*y/2,"15");  /*  (Carmel,  Bigsur);  */ 
outtextxy(15*x,15*y/2,"15");  /*  (Monterey,  Carmel)  */ 
outtextxy(15*x,6*y,”12");  /*  (Monterey,  Salinas)  */ 

outtextxy(7*x,6*y,"5");  /*  (Monterey,  Marina)  */ 

outtextxy(28*x,6*y,"15");  /*  (Salinas,  Carmel)  */ 


^*  *********************************** <********************************/ 


outtextxy(  1 0*x,  1 2*y  ,"L”); 
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outtextxy(25*x,12*y,"EDGES  TO  CHECK"); 

outtextxy  (52*x,  1 2*y,"DISTAN  CE" ); 

outtextxy(77*x,12*y,"T"); 

moveto(2*x,25*y/2); 

lineto(18*x,25*y/2); 

moveto(20*x,25*y/2); 

lineto(49*x,25*y/2); 

moveto(5 1  *x,25*y/2); 

lineto(61  *x,25*y/2); 

moveto(63*x,25*y/2); 

lineto(88*x,25*y/2); 


f ******* '*************************************************************/ 


outtextxy(47*x,3*y/2,"THE  WAY  WE  APPLIED  PRIM’S  ALG."); 

moveto(43*x,2*y); 

lineto(89*x,2*y); 

outtextxy(43*x,3*y,".  We  arbitrarily  chose  Monterey  and  put "); 
outtextxy(43*x,4*y,"  her  in  L."); 
outtextxy(5*x,13*y,"Monterey"); 

outtextxy(43*x,5*y,".  We  listed  all  edges  going  out  from  Mon-"); 
outtextxy(43*x,6*y,"  terey  and  put  them  in  edges  to  check.”); 
outtextxy(20*x,13*y,"(Monterey,  Marina)"); 
outtextxy(56*x,13*y,"5"); 
outtextxy(20*x,  1 4*y ."(Monterey ,  S alinas) "); 
outtextxy(55*x,14*y,"12"); 
outtextxy(20*x,15*y, "(Monterey,  Carmel)"); 
outtextxy(55*x,  1 5*y 1 5"); 

outtextxy(43*x,7*y,".  We  chose  (Monterey, Marina)  since  it  has"); 

outtextxy(43*x,8*y,"  the  minimum  distance.  And  we  delete"); 

outtextxy(43*x,9*y,"  this  edge  from  the  check  list."); 

outtextxy(63*x,  1 3*y, "(Monterey,  Marina)"); 

setcolor(backcolor); 

moveto(8*x,8*y);  lineto(3*x,4*y); 

setiinestyle(3,0,3); 

setcolor(  forecolor) ; 

moveto(8*x,8*y);  lineto(3*x,4*y);  /*  add  (Monterey,  Marina)  to  T  */ 
setlinestyle(0,0,3); 
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moveto(20*x,13*y);  lineto(40*  x ,  1 3 * y) ;/* delete  (Monterey,Marina)  from  list*/ 

Pause(55*x,10*y); 

setcolor(backcolor); 

bar(43*x,5*y/2,MaxX-3*x/2,45*y/4); 

setcolor(forecolor) ; 


/*********»**********************************************************/ 


outtextxy(43*x,3*y,".  We  now  add  Marina  to  L  since  L  <=  "); 
outtextxy(43*x,4*y,"  L  U  {V}"); 
outtextxy(5*x,16*y,"Marina"); 

outtextxy(43*x,5*y,".  We  listed  all  edges  going  out  from  Ma-"); 
outtextxy(43*x,6*y,"  rina  and  put  them  in  edges  to  check."); 
outtextxy(20*x,  1 6*y, "(Marina,  Salinas)"); 
outtextxy(56*x,16*y,"8"); 

outtextxy(43*x,7*y,".  We  chose  (Marina,  Salinas)  since  it  has"); 

outtextxy(43*x,8*y,"  the  minimum  distance  among  the  existing."); 

outtextxy(43*x,9*y,"  edges.  And  we  deleted  this  edge  from  the"); 

outtextxy(43*x,10*y,"  check  list."); 

outtextxy(63*x,16*y, "(Marina,  Salinas)"); 

setcolor(backcolor); 

moveto(3*x,4*y);  lineto(23*x,l  l*y/4); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(3*x,4*y);  lineto(23*x,l  l*y/4);  /*  add  (Marina,Salinas)  to  T  */ 
setlinestyle(0,0,3); 

moveto(20*x,16*y);  lineto(40*x,16*y);/*delete  (Marina, Salinas)  from  list*/ 

Pause(55*x,ll*y); 

setcolor(backcolor); 

bar(43*x,5*y/2,MaxX-3*x/2,45*y/4); 

setcolor(forecolor); 


y********************************************^******^^^,^***^^^^^^^^^^^ 


outtextxy(43*x,3*y,".  We  now  add  Salinas  to  L  since  L  <=  "); 
outtextxy(43*x,4*y,"  L  U  {V}"); 
outtextxy(5*x,17*y, "Salinas"); 

outtextxy(43*x,5*y,’\  We  listed  all  edges  going  out  from  Sa-"); 
outtextxy(43*x,6*y,"  linas  and  put  them  in  edges  to  check."); 
outtextxy(43*x,7*y,"  And  we  deleted  (Monterey,  Salinas)  from"); 
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outtextxy(43*x,8*y,"  the  list  because  it  would  cause  cycle."); 
outtextxy(20*x,17*y,”(Salinas,  Greenwillage)"); 
outtextxy(56*x,  1 7*y,"3"); 
outtextxy(20*x,18*y, "(Salinas,  Carmel)"); 
outtextxy(55*x,18*y,"15"); 

outtextxy(43*x,9*y,".  We  choose  (Salinas,  Greenwillage)  and  "); 
outtextxy(43*x,10*y,"  delete  this  edge  from  the  check  list."); 
outtextxy(63*x,17*y, "(Salinas,  Greenwillage)"); 
setcolor(backcolor) ; 

moveto(23*x,l  l*y/4);  lineto(33*x,2*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(23*x,l  l*y/4);  lineto(33*x,2*y'i;  /*  add  (Salinas, Greenwillage  to  T */ 
setlinestyle(0,0,3); 

moveto(20*x,17*y);  lineto(44*x,17*y);/*delete  (Salinas,Greenwillage)  from  list*/ 

moveto(20*x,14*y);  lineto(41*x,14*y);/*delete  (Monterey,Salinas)  from  list*/ 

Pause(55*x,l  l*y); 

setcolor(backcolor); 

bar(43*x,5*y/2,MaxX-3*x/2,45*y/4); 

setcolor(forecoIor); 

*********4^************************** ******************************/ 

outtextxy(43*x,3*y,".  We  add  Greenwillage  to  L  "); 
outtextxy(5*x,19*y, "Greenwillage"); 
outtextxy(43*x,4*y,".  We  listed  all  edges  going  out  from  "); 
outtextxy(43*x,5*y,"  Greenwillage  in  the  check  list."), 
outtextxy(20*x,19*y, "(Greenwillage,  Bigsur)"); 
outtextxy(55*x,  1 9*y,  "30"); 

outtextxy(43*x,6*y,".  We  chose  (Monterey,  Carmel)  since  "); 

outtextxy(43*x,7*y,"  it  is  one  of  the  least  distances "); 

outtextxy(43*x,8*y,"  in  the  list.  Here  we  could  also "); 

outtextxy(43*x,9*y,"  chose  (Salinas,  Carmel)."); 

outtextxy(63*x,15*y, "(Monterey,  Carmel)"); 

setcolor(backcolor); 

moveto(8*x,8*y);  lineto(28*x,8*y); 

setcolor(forecolor); 

setlinestyie(3,0,3); 
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moveto(8*x,8*y);  lineto(28*x,8*y);/*  add  (Monterey,  Carmel)  to  T  */ 
setlinestyle(0,0,3); 

moveto(20*x,15*y);  lineto(40*x,15*y);/*delete  (Monterey, Carmel)  from  list*/ 

Pause(55*x,ll*y); 

setcolor(backcolor) ; 

bar(43*x,5*y/2,MaxX-3*x/2,45*y/4); 

setcolor(forecolor); 

y* *******************************************************************/ 


outtextxy(43*x,3*y,".  This  time  we  add  Carmel  to  L  "); 
outtextxy(5*x,20*y,"Carmel"); 

outtextxy(43*x,4*y,".  We  listed  all  edges  going  out  from  "); 
outtextxy(43*x,5*y,"  Carmel  in  the  check  list.  But  we  dele-"); 
outtextxy(43*x,6*y,"  ted  (Salinas,  Carmel)  from  the  list "); 
outtextxy(43*x,7*y,"  otherwise  it  would  cause  a  cycle. "); 
outtextxy(20*x,20*y, "(Carmel, Bigsur)"); 
outtextxy(55*x,20*y,"15"); 

outtextxy(43*x,8*y,”.  This  time  we  chose  (Carmel,  Bigsur)”); 

outtextxy(43*x,9*y,"  since  it  has  the  least  distance.  "); 

outtextxy(63*x,20*y,"(Carmel,  Bigsur)"); 

setcolor(backcolor); 

moveto(28*x,8*y);  lineto(43*x,8*y); 

setcolor(forecolor); 

setlinestyle(3,0,3); 

moveto(28*x,8*y);  lineto(43*x,8*y);/*  add  (Carmel,  Bigsur)  to  T  */ 
setlinestyle(0,0,3); 

moveto(20*x,20*y);  lineto(40*x,20*y);/*delete  (Carmel, Bigsur)  from  list*/ 

moveto(20*x,18*y);  Iineto(40*x,18*y);/*delete  (Salinas.Carmel)  from  list*/ 

Pause(55*x,l  l*y); 

setcolor(backcolor); 

bar(43*x,5*y/2,MaxX-3*x/2,45*y/4); 

setcolor(forecolor); 

/********************************************************************/ 


outtextxy(43*x,3*y,".  Finally  we  add  Bigsur  to  L  which  "); 
outtextxy(43*x,4*y,"  is  the  last  vertice  in  our  graph."); 
outtextxy(43*x,5*y,"  As  you  realize  we  can  not  add  any"); 
outtextxy(43*x,6*y,"  other  edge  to  out  tree  T.  That  is”); 
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outtextxy(43*x,7*y,"  we  are  done."); 

outtextxy(5*x,21*y,"Bigsur"); 

moveto(20*x,19*y);  lineto(43*x,19*y); 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 

) 
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/*  PROGRAM  :  examp443.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :Apr.  18,  1990 
REVISED  :  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  implementation 
of  prims  algorithm. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined!M_I86)  &&  ! defined!  ZTC  )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd!a) 

#define  findfirst(a,b,c)  _dos_findfirst!a,c,b) 

#defuie  findnext!a)  _dos_findnext!a) 

^define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC  )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff  name  najne 
#define  ff  attrib  attribute 


#endif 


#define  GRAPH  T  DEFUSED 


/*  function  prototypes  */ 


/*  Utility  functions  * / 
static  void  init_graph  (void); 
static  void  confirin_giaph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/*  graphic  initialization  variables  */ 

int  curr_mode; 

int  graphdi  iver; 

im  graj/htnode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 


if(registeibgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidiivei(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgklriver(ATT_driver)  <  0)  exit(l); 
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I 


/ 


/*  Tins  friction  initializes  the  necessary  graphical  routines  */ 

^t*********************************************************************^ 

static  void  init_graphtvoid) 


int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT ; 

/****.» c**********%*******%*******%**************#**%*****************4y 


ini  tgr  aph(  &  graphdri  ver,&  graphinode , "  " ); 
graph_error  =  graphresult(); 

/*******!(<%******%****  J-*****1<* +  Ik******************. i--******** 


if(graph_error  <  0)  ( 
puts(grapherronnsg(graph_error)); 
exit(l ); 


MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25: 
settextO; 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  =  ATT400H1))  ( 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 

backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 
bar(3*7/2,23*y,179 *x/2 ,97 *y/4 ); 
setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)T); 
ch  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y')  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n”); 
ch  =  getch  (); 

if((ch  ==  y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(qu  itcolor) ; 

) 

switch  (ch)  ( 

case  ’y  ’-'  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  'Y’:  closegraph(); 
videoiiiitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3 ,23  *y  ,30*x,97*y/4 ); 
bar(31  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 


962 


bai  (4  *x/3 ,23  *y  ,30*x  ,97 *y/4 ); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_rnouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/if'*********************************************************************^ 

/*  This  function  sets  the  text  default  values  */ 

^*  *************************************  +  *******************************/ 
static  void  settext(void) 

I 

settextstyle(0.0,0); 

setlinestyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


*********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

void  Pause(i,j) 
int  i,  j; 


settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confum_graph_exit(); 

I 

/*  main  routine  which  calls  exer  routine  */ 

/*************************************************************.********* 

t  / 

void  main( ) 


exer(); 

) 
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y********************************1*1*************************************/ 

/*  This  routine  illustrates  an  implementation  of  the  Prim’s  MST  algorithgm.  */ 

y+*=f.=(«aK^%%*=4<=*«***»»«**3*<>t<*****>k****^***>t'4c*>k**=4<*^***>i'*>*«=*'**>fa*«**>*‘*>»'*3*«*!*'>*'^5*',*'J*'***/ 

void  exer() 

I 

init  _graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y,MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-4-3"); 

/********************************************************************/ 

pieslice(5*x,7*y  .0,359,2);  /*  A  */ 

pieslice(10*x,7*y,0. 359,2);  /*  B  */ 

pieslice(35*x.7*y,0,359,2);  /*  G  */ 

pieslice(20*x.4*y  ,0,359,2);  /*  D  */ 

pieslice(20*x.I0*y,0,359,2);  /*  E  */ 

pieslice(20*x.3*y/2,0,359,2);  /*  C  */ 

pieslice(20*x.25*y/2,0,359,2);  /*  F  */ 

outtextxy(3*x.7*y,"A"); 

outtextxy(36*x,7*y,"G"); 

outtextxy(20*x/2,15*y/2,"B"); 

outtextxy(20*x,9*y/2,"D"); 

outtextxy(21*x,3*y/2,"C"); 

outtextxy(20*x,19*y/2,"E"); 

outtextxy(21  *x,25*y/2,"F"); 

moveto(5*x,7*y);  lineto(10*x,7*y);  lineto(35*x,7*y); 
outtextxy(8*x,27*y/4,"l");  /*  (A,B)  */ 

outtextxy(20*x,27*y/4,"5");  /*  (B  ,G)  */ 

moveto(5*x,7*y);  lineto(20*x,4*y);  lineto(10*x,7*y); 

moveto(5*x,7*y);  lineto(20*x,3*y/2);  lineto(20*x,4*y); 
moveto(5*x,7*y);  lineto(20*x,10*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,25*y/2);  lineto(20*x,10*y); 
moveto(20*x,3*y/2);  lineto(35*x,7*y); 
moveto(20*x.4*y);  lineto(35*x,7*y); 

moveto(?0*x.l0*y);  Iineto(35*x,7*y); 
mr*'"*tr>f20*x.z.t','y/2/*;  !tneto(.35*x,/*y); 
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outtextxy(21*x,3*y,"2");  /*  (C,D)  */ 

outtextxy(21*x,ll*y,"2");  /*  (E,F)  */ 
outtextxy(9*x.9*y/2,"4");  /*  (A,C)  */ 

outtextxy(ll*x,8*y,"2");  /*  (A,E)  */ 

outtextxy(14*x,8*y,"3");  /*  (B,E)  */ 

outtextxy(29*x/2,6*y,"3");  /*  (B,D)  */ 

outtextxy(21*x/2,ll*y/2,"2");  /*  (A,D)  */ 
outtextxy(30*x,9*y/2,"4");  /*  (C,G)  */ 

outtextxy(25*x,  1 7*y/2,"3");  /*  (E,G)  */ 

outtextxy(21*x/2,10*y,"3");  /*  (A,F)  */ 

outtextxy(27*x,21*y/2,"3");  /*  (F,G)  */ 

outtextxy(25*x,l  l*y/2,"3");  /*  (D,G)  */ 

/* 


******************************************************************* 


/ 


outtextxy(46*x,2*y,"L"); 
outtextxy(52*x,2*y, "EDGES  TO  CHECK"); 
outtextxy(73*x,2*y, "DISTANCE"); 
outtextxy(86*x,2*y,"T"); 
moveto(44  *x  ,5  *y/2 );  Iineto(49  *x  .5  *y/2); 
moveto(5 1  *x,5*y/2);  lineto(70*x,5*y/2); 
moveto(72*x,5*y/2);  Iineto(82*x,5*y/2); 
moveto(84*x.5*y/2);  lineto(89*x,5*y/2); 

outtextxy(2*x,I4*y,"THE  WAY  WE  APPLIED  PRIM’S  ALGORITHM"); 
moveto(3*x/2.29*y/2);  lineto(43*x,29*y/2); 
/*************************************************************  ******  *^ 


outtextxy(2*x,15*y,".  We  again  arbitrarily  chose  A  and  "); 
outtextxy(2*x,16*y,"  put  her  in  L."); 
outtextxy(46*x,3*y,"A"); 

outtextxy(2*x,17*y,".  We  list  all  edges  going  out  from  A"); 

outtextxy(2*x,18*y,"  and  put  them  in  edges  to  check.  And,"); 

outlextxy(2*x,19*y,"  write  their  weights  under  DISTANCE"); 

outtextxy(58*x,3*y."(A,C)"); 

outtextxy(76*x.3*y,"4"); 

outtextxy(58*x,4*y,"(A.D)"); 

outtextxy(76*x,4*y,"2"); 

outtextxy(58*x.5*y,"(A,B)"); 

out?extxy(76*x.5*y ,"!"); 
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outtextxy(58*x,6*y,"(A,E)"); 
outtextxy(76*x,6*y  ,"2"); 
outfextxy(58*x,7*y,"(A,F)"); 
outtextxy(76*x,7*y,"3"); 

outtextxy(2*x.20*y,".  We  chose  (A3)  since  it  has  the  least"); 
outtextxy(2*x,21*y,"  distance  and  we  delete  this  edge  from"); 
outtextxy(2*x.22*y,"  the  check  list."); 

outtextxy(84*x,5*y,"(A3)"); 

setcolor(backcolor); 
moveto(5*x,7*y);  lineto(10*x,7*y); 
setlinestyle(3.0,3); 

setcolor(forecolor); 

tnoveto(5*x,7*y);  lineto(10*x,7*y);  /*  add  (A,  B)  to  T  */ 
setlinestyle(0.0.3); 

moveto(58*x.5*y);  lineto(63*x,5*y);  /*  delete  (A3)  from  the  list*/ 

Pause(7*x.24*y); 

setcolor(backcoloi ); 

bar(3*x/2,59*y/4,50*x,24*y); 

setcolor(forecolor); 

outtextxy(2*x.l5*y,".  We  now  add  B  to  L  since  "); 
outtextxy(2*x,16*y,"  L  <=  L  U  {V}"); 
outtextxy(46*x,8*y,”B”); 

outtextxy(2*x,I7*y,”.  We  listed  all  edges  going  out  from  B"); 

outtexfxy(2*x.!8*y,"  and  put  them  in  the  check  list."); 

ouitextxy(58*x,8*y,"(B,D)"); 

outtextxy(76*x,8*y,"3"); 

outtextxy(58*x,9*y,"(B,G )"); 

outtextxy(76*x,9*y,"5"); 

outtextxy(58*x,10*y,"(B,E)"); 

outtextxy(76*x,10*y,"3"); 

outtextxy(2*x,19*y,".  We  chose  (A,D)  since  it  has  the  least  dist-"); 
outtextxyt2*x,20*y,"  ance  among  the  existing  edges.  And  we  delet-"); 
outtextxy(2*x.2L*y,"  ed  this  edge  and  (B,D)  from  the  check  list."); 
outtextxy(2*x.22*y,”  (if  we  chose  (B,D)  we  would  have  a  cycle)"); 
outtextxy(84*x,4*y,"(A.D)"); 
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setcolor(backcolor); 
moveto(20*x,4*y);  lineto(5*x,7*y); 
setcolor(  forecolor); 

setlinestyle(3,0,3); 

moveto(20*x,4*y);  lineto(5*x,7*y);  /*  add  (A,D)  to  T  */ 
setlinestyle(0.0,3); 

moveto(58*x,4*y);  lineto(63*x,4*y);  /*  delete  (A,D)  from  the  list  */ 

moveto(58*x,8*y);  lineto(77*x,8*y);  /*  delete  (B,D)  from  the  list  */ 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4,55*x,24*y); 

setcolor(forecolor); 

outtextxy(2*x,15*y,".  We  now  add  D  to  L."); 
outtextxy(46*x,l  l*y,"D"); 

outtextxy(2*x.l6*y,".  We  listed  all  edges  going  out  from  D"); 
outtextxy(2*x.l7*y,"  and  put  them  in  the  check  list."); 
outtextxy(58*x.l  1  *y,"(D,C)"); 
outtextxy(76*x.l  l*y,"2"); 
outtextxy(58*x.l2*y,"(D,G)"); 
outtextxy(7C)*x.l2*y,"3"); 

outtextxy(2’,,x.l85,<y,".  We  chose  (A,E)  since  it  has  the  least  dist-"); 

outtextAy(2*x.l9,,,y,"  ance  among  the  existing  edges.  And  we  delet-"); 

outtextxy(2*x.20*y,"  ed  (A,E)  and  (B,E)  from  the  check  list.  (It"); 

outtextxy(2’l'x,21*y,"  would  cause  cycle  if  chose  (B,E))-  Here  we"); 

outtextxy(2*x.22*y,"  could  choose  (D,C)  also  but  (A,E)  is  the"); 

outtextxy(2*x.23*y,"  first  one,  that’s  why  we  chose  (A,E)."); 

outtextxy(84*x,6*y,"(A,E)"); 

setcolor(backcolor); 

moveto(20*x,10*y);  lineto(5*x,7*y); 

setcolor(  forecolor); 

setlinestyle(3.0.3); 

moveto(20*x.l0*y);  lineto(5*x,7*y);  /*  add  (A,E)  to  T  */ 
setlinestylel  0.0,3); 

moveto(58*x,6*y);  lineto(63*x,6*y);  /*  delete  (A,E)  from  the  list  */ 
moveto(f>8*x,!()*y);  lineto(77*x,10*y);/*  delete  (B,E)  from  the  list  */ 
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Pause(7*x,24*y); 
setcolor(backcolor); 
bar(3*x/2,59*y/4,55*x,24*y); 
setcolor(  forecolor); 

/******************************************************************** 


/ 


outtextxy(2*x,15*y,".  We  now  add  E  to  L."); 
outtextxy(46*x,  1 3  *y  ,"E" ); 

outtextxy(2*x,16*y,".  We  listed  all  edges  going  out  from  E"); 

outtextxy(2*x,17*y,"  and  put  them  in  the  check  list."); 

outtextxy(58*x,13*y,"(E,F)"); 

outtextxy(76*x,  1 3*y,"2"); 

outtextxy(58*x,14*y,"(E,G)"); 

outtextxy(76*x,14*y,"3"); 

outtextxy(2*x,18*y.".  We  chose  (D,C)  since  it  has  the  least  dist-"); 

outtextxy(2*x,19*y,"  ance  among  the  existing  edges.  And  we  delet-"); 

outtextxy(2*x,20*y,"  ed  (D,C)  and  (A,C)  from  the  check  list."  ); 

outtextxy(2*x,21  *y,"  (It  would  cause  a  cycle  if  we  chose  (A,C))."); 

outtex‘xy(84*x,l  l*y,"(D,C)"); 

setcolor(backcolor); 

moveto(20*x,4*y);  lineto(20*x,3*y/2); 

setcolort  forecolor); 

setlinesty  let  3,0,3); 

moveto(20*x,4*y);  lineto(20*x,3*y/2);  /*  add  (D,C)  to  T  */ 
setlinestyle(0.0,3); 

moveto(58*x,l  1  *y);  lineto(63*x,l  1  *y);  /*  delete  (D,C)  from  the  list  */ 

moveto(58*x.3*y );  lineto(77*x,3*y);  /*  delete  (A,C)  from  the  list  */ 

Pause(7*x,24*y); 

setcolor(backcolor); 

bar(3*x/2,59*y/4.55*x,24*y); 

setcolor(forecolor); 

^***********************%%**********%****%*******%%*%*************** 

outtextxy(2*x.l5*y,".  We  now  add  C  to  L."); 

outtextxy(46*x,15*y,"C"); 

outtextxy(2*x,16*y,”.  We  listed  all  edges  going  out  from"); 
outtextxy(2*x,17*y,"  (i.e.  (C,G) )  and  put  them  in  the"); 
outtextxy(2*x.l8*y,"  check  list."); 
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outtextxy(58*x,15*y,"(C,G)"); 

outtextxy(76*x,15*y,"4"); 

outtextxy(2*x.l9*y,".  We  chose  (E,F)  since  it  lias  tlie"); 
outtextxy(2*x,20*y."  least  distance  among  the  existing"); 
outtextxy(2*x.21*y,"  edgeo.  And  we  deleted  (E,F)  and  ); 
outtextxy(2*x.22*y,"  (A,F)  from  the  check  list.(lt  would"); 
outtextxy(2*x,23*y,"  cause  a  cycle  if  we  chose  (A,F))."); 
outtextxy(84*x,13*y,"(E,F)"); 
setcolor(backcolor); 

moveto(20*x,10*y);  lineto(20*x,25*y/2); 

setcolor(forecolor); 

setlinestyle(3.0.3); 

moveto(20*x.l()*y);  lmeto(20*x.25*y/2);  /*  add  (E,F)  to  T  */ 
setlinestyle(0.0,3); 

moveto(58*x.l3*y);  lineto(63*x,13*y);  /*  delete  (E,F)  from  the  list  */ 
moveto(58*x.7*y);  lineto(77*x,7*y);  /*  delete  (A, F)  from  the  list  */ 
Pause(30*x.24*y ); 
setcoloif  back  color); 

bar(3*x/2,59*y/4  45*x,47*y/2); 

bar(3*x/2.23*y,70*x,49*y/2); 

setcolor(forecolor); 

I* *********************************************-******* ***************/ 

outtextxy(2*x.I5*y,".  We  now  add  F  to  L.”); 
outtextxy(46*x,  1 6*y  ,"F"); 

outtextxy(2*x,I6*y,".  We  listed  all  edges  going  out  from"); 
outtextxy(2*x,17*y,"  (i.e.  (F,G) )  and  put  the  n  in  the"); 
outtextxy(2*x,l8*y,"  check  list.” ); 
outtextxy(58*x,16*y,"(F,G)"); 
outtextxy(76*\,I  6*y,”3"); 

outtextxy(2*x.l9*y,".  We  chose  (D,G)  since  it  has  the”); 
outtextxy(2*x.20*y,"  least  distance  among  the  existing"); 
outtextxy(2*x,21*y,”  edges.  And  we  deleted  (D,G)  and”); 
outtextxy(2*x,22*y,"  fB,G),(E,G),(.C,G),(F,G)  from  the"); 
outtextxy(2*x.23*y,"  check  list. (We  would  have  cycle"); 
outtextxy(2*x.47*y/2,"  if  we  chose  any  one  of  them)."); 
outtextxy(84*x,l2*y,"(P  j)"); 
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e.etcolor(backcolor); 
moveto(20*x.4*y);  lineto(35*x,7*y); 
setcolor(forecolor); 
setlinestyle(3,0,3); 

moveto(20*x,4*y);  lineto(35*x,7*y);  /*  add  (D,G)  to  T  */ 
setlinestyle(0,0,3); 

moveto(58*x,12*y);  linetc(5J*x,12*y);  /*  delete  (D,G)  from  the  list  */ 

moveto(58*x,9*y);  lineto(77*x,9*y);  /*  delete  (B,G)  from  the  list  */ 

moveto(58*x,14*y)-  l»"eto(63*x,14*y);  /*  delete  (E,G)  from  the  list  */ 

moveto(58*x,15*y);  lineto(77*x,15*y);  /*  delete  (C,G)  from  the  list  */ 

moveto(58*x,16*y);  lineto(77*x,16*y);  /*  delete  (F,G)  from  the  list  */ 

Pause(30*x,24*y); 

setcoior(backcoloi ); 

bar(3*x/2,59*y/4,45*x,49*y/2); 

bar(3 *x/2,23 *y  ,70*x  49*y/2); 

setcoloi  ( forecolor); 

^*******************************************************************4y 

outtextxy(2*x,15*y,".  V.e  finally  add  G  to  L."); 
outtextxy(46*x,17*y,"G"); 

outtextxy(2*x,16*y,".  We  see  that  there  is  no  edge  to"); 
outtextxy(2*x,l7*y,"  put  in  the  check  list.  So,  this"); 
outtextxy(2*x,18*y,"  means  we  are  done."); 

/ft*******************************************************************^ 

Pause(',0*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM  :  examp444.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  18, 1990 
REVISED  :  Apr.  18,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  kruskal’s 
algorithm. 


MACHINF/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*1 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

^include  "cxlmou.h" 

#if  defined(_TURBOC _ )  /*  Turbo  C  ♦/ 

tfinclude  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined(L_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#el  if  defined( _ ZTC_  )  /*  Zortech  C/C++  *  / 

#define  ffblk  FIND 


#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 


971 


#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  *J 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (inti,  intj); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/********************************************************************** 
/*  graphic  initialization  variables  */ 

^****  +  *  +  #***:*:fr**itr**:fi****%!|<****#*******************jtij|t****  +  *********:|<*l|<stt!|^ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph  error; 

iiit  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/+*****  +  *  +  **  +  +  +  *  +  *  +  +  +  **************  +  **4<****i|<***********  +  +  **  +  +  if#*******>iy 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

+  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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/*********  *******************  *****************************  *************/ 
/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/*********************************************************  ********  *****^ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_dr  ivers( ) ; 
graphdriver  =  DETECT ; 

^********************************************************************^ 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresultQ; 

^(t*******************************************************************^ 


if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

I 

^********************************************************************^ 


MaxX  =  getmaxxQ; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  il  (graphmode  =  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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y**********************************************’*'***********************/ 

static  void  confirm  graph  exit(void) 


( 

struct  _onkey_t  *kblist; 
char  ch; 


sctcolorfbackcolor); 
bar(3*x/2,23*y,l79*x/2,97*y/4); 
setcolor(qu  itcolor) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3 *x/2,24*y  ,"Quit !  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

wliile  (!((ch  ==  ’y’)  »  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n’’); 
ch  =  getch  (); 

if((ch  ==  V )  H  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor ) ; 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 


974 


bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  :'x,23*y,69*x,97*y/4); 
se  tcolor(  forecolor) ; 
break; 

default :  break; 


} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


I 

/************************************************** i********************/ 

/*  This  function  sets  the  text  default  values  */ 

/*+**+*****************************************************************/ 


static  void  settext(void) 


{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


* ** ** * ** * * * * * ** ** * * * * * * * ** ****** * * * ******* **** * * ** ******** ****** **** 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/****  *************  *********  ^i****#*#**  a**#**  ********************  ********/ 

void  Pause(i.j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»PRESS  A  KEY  TO  CONTINUE«"); 
if(waitkey()=ESC)  confum_graph_exit(); 

I 

^*  *********************************************************************/ 
/*  main  routine  which  calls  exer  routine  */ 

^*  *********************************************************************/ 
void  main() 

I 

exer(); 

} 
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y**********************************************************************/ 
/*  Tliis  routine  illustrates  an  implementation  of  Kruskal’s  MST  algorithm.  */ 

^** *********************** *********************************************/ 
void  exer() 


init_graph(); 

setcolor(  forecolor) ; 

barfO,0,MaxX,MaxY); 

rectangle(x  ,y  ,MaxX-x  ,Max  Y  -y/2 ) ; 

outtextxy(38*x,y/2, "EXAMPLE  4-4-5"); 


pieslice!3*x,4*y  ,0,359,2);  /*  Marina  */ 

pieslice(33*x,2*y,0,359,2);  /*  Greenwillage  */ 

pieslice(43*x,8*y,0,359,2);  /*  Bigsur  */ 

pieslice!8*x,8*y,0,359,2);  /*  Monterey  */ 

pieslice(23*x,ll*y/4 ,0,359,2);  /*  Salinas  */ 
pieslice(28*x,8*y ,0,359,2);  /*  Carmel  */ 

moveto(3*x,4*y);  lineto(33*x,2*y);  lineto(43*x,8*y);  lineto(8*x,8*y); 
lineto(3*x,4*y); 

moveto!8*x,8*y);  lineto(23*x,ll*y/4);  lineto(28*x,8*y); 

outtextxy  (2*x,3  *y, "Marina" ); 

outtextxy  ( 1 8  *x  ,5  *y/2,"  Salinas" ); 

outtextxy(28*x,5*y/3, "Greenwillage"); 

outtextxy (3 6 *x ,  1 7  *y/2 ," B ig  Sur" ) ; 

outtextxy(23  *x,9*y, "Carmel" ); 

outtextxy(3*x,9*y, "Monterey"); 

outtextxy(  1 1  *x,4*y,"8"); 

outtextxy  ( 27  *x  ,3  *y ,"  3  ") ; 

outtextxy(36*x,6*y,"30"); 

outtextxy(34*x,15*y/2,"15"); 

outtextxy!  15*x,15*y/2, "15"); 

outtextxy!  1 5  *x,6*y ,"  1 2"); 

outtextxy(7*x,6*y,"5"); 


outtextxy(28*x,6*y,"15"); 

/******************************************************************** 


outtextxy(5*x,12*y, "EDGES  TO  CHECK"); 
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outtextxy(32*x,12*y, "DISTANCE"); 
moveto(2*x,25*y/2);  lineto(29*x,25*y/2); 
moveto(3 1  *x,25*y/2);  lineto(4 1  *x,25 *y/2); 

outtextxy(44*x,12*y,"THE  WAY  WE  APPLIED  KRUSKAL’S  ALG."); 
moveto(43 *x  ,25 *y/2) ;  lineto(90*x ,25 *y/2); 

outtextxy(43*x,13*y,".  We  sorted  the  edges  from  least  distance"); 

outtextxy(43*x,14*y,"  and  listed  them."); 

outtextxy(2*x,13*y, "(Salinas,  Greenwillage)"); 

outtextxy(36*x,13*y,"3"); 

outtextxy(2*x,14*y, "(Monterey,  Marina)"); 

outtextxy(36*x,14*y,"5"); 

outtextxy(2*x,15*y, "(Marina,  Salinas)"); 

outtextxy(36*x,15*y,"8"); 

outtextxy(2*x,16*y,"(Monterey,  Salinas)"); 

outtextxy(35*x,16*y,"12"); 

outtextxy(2*x,17*y, "(Monterey,  Carmel)"); 

outtextxy(35*x,17*y,"15"); 

outtextxy(2*x,18*y, "(Salinas,  Carmel)"); 

outtextxy(35*x,18*y,"15"); 

outtextxy(2*x,  1 9*y , "(Carmel,  Bigsur)"); 

outtextxy(35*x,19*y,"15"); 

outtextxy(2*x,20*y, "(Bigsur,  Greenwillage)"); 

outtextxy(35*x,20*y,"30"); 

^****j(<****l)<********>t‘**>(<**l(<******>t<*>(H(l***l(Cl(C************>|<l|t****!(t**lt<*#**>t<l|<^ 

outtextxy(43*x,15*y,".  Now  we  will  start  to  build  the  tree"); 
outtextxy(43*x,16*y,"  starting  from  the  least  edge."); 

Pause(55*x,24*y); 
bar(43*x,5 1  *y/4,90*x,49*y/2); 

/*  Second  graph  having  only  the  nodes.  We  will  use  this  graph  to  show  */ 

/*  how  the  minimal  spanning  tree  grows  on.  */ 

/% *******************************************************%***********/ 


pieslice(46*x,4*y,0,359,2) 

pieslice(76*x,2*y,0,359,2) 

pieslice(86*x,8*y,0,359,2) 


/*  Marina  */ 

/*  Greenwillage  */ 
/*  Bigsur  */ 
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pieslice(51*x,8*y,0,359,2);  /*  Monterey  */ 

pieslice(66*x,l  l*y/4,0,359,2);  /*  Salinas  */ 
pieslice(71*x,8*y,0,359,2);  /*  Cannel  */ 

outtextxy(45  *x,3  *y  ."Marina" ); 
outtextxy(56  *x,5  *y/2, "Salinas" ); 
outtextxy  <J  1  *x,5*y/3,”Greenwillage"); 
outtextxy  (80*x,17*y/2,"Big  Sur"); 
outtextxy(66*x,9*y  ."Carmel"); 
outtextxy(46*x,9*y, "Monterey"); 

y*********** *********************** **********************************/ 

outtextxy(43*x,13*y,".  As  you  will  see  we  will  start  from"); 
outtextxy(43*x,14*y,"  first  edge  (the  least  distance)  "); 
outtextxy(43*x,15*y,"  and  will  connect  the  nodes  in  the"); 
outtextxy(43*x,16*y,"  next  graph  accordingly.  "); 

moveto(66*x,ll*y/4);  lineto(76*x,2*y);/*  add  (Salinas, Greenwillage)  to  tree*/ 
moveto(2*x,13*y);  lineto(29*x,13*y);  /*  delete  this  from  the  list  */ 
outtextxy(70*x,3*y,"3"); 

Pause(55  *x,24*y); 
bar(43*x,5 1  *y/4,90*x,49*y/2); 

y********************************************************************y 
moveto(5 1  *x,8*y);  lineto(46*x,4*y);  /*  add  (Monterey,  Marina)  to  tree  */ 
moveto(2*x,14*y);  lineto(29*x,14*y);  /*  delete  this  edge  from  the  list  */ 
outtextxy(47  *x,6*y  ,"5" ); 

Pause(55*x,24*y); 
bar(43*x,5 1  *y/4,90*x,49*y/2); 

y*  *********  ******  ***********1(1** **************************************y 

moveto(46*x,4*y);  lineto(66*x,ll*y/4);  /*  add  (Marina, Salinas)  to  tree  */ 
moveto(2*x,15*y);  lineto(29*x,15*y);  /*  delete  this  edge  from  the  list*/ 
outtextxy(56*x,4*y,"8"); 

outtextxy(43*x,16*y,"  Here  as  you  see  we  cannot  choose"); 

outtextxy(43*x,17*y,"  (Monterey,  Salinas)  because  it"); 

outtextxy (43 *x,l 8 *y,"  cause  a  cycle.  So  we  skip  this  edge."); 

moveto(2*x,16*y);  lineto(41*x,16*y);  /*  delete  (Monterey .Salinas)  from  the  list*/ 

Pause(55*x,24*y); 

bar(43*x,51*y/4,90*x,49*y/2); 

y********************************************************************y 
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outtextxy(43*x,17*y,".  Now  we  will  continue  from  where  "); 
outtextxy(43*x,18*y,"  we  left,  that  is  from  (Monterey,"); 
outtextxy(43*x,19*y,"  Carmel)."); 

moveto(5 1  *x,8*y);  lineto(7 1  *x,8*y);/*  add  (Monterey .Carmel)  to  tree  */ 
moveto(2*x,17*y);  lineto(29*x,17*y);/*  delete  this  edge  from  the  list  */ 
outtextxy(58*x,15*y/2,"15"); 

Pause(55*x,24*y); 
bar(43*x,5 1  *y/4,90*x,49*y/2); 

<******************************************************************/ 
outtextxy(43*x,18*y,".  Again,  here  we  cannot  choose"); 
outtextxy(43*x,19*y,"  (Salinas,  Carmel)  because  of'); 
outtextxy(43*x,20*y,"  cycle.  So  we  skip  to  the  next"); 
outtextxy(43*x,21*y,"  edge,  (Carmel,  Bigsur)."); 

moveto(2*x,18*y);  lineto(41*x,18*y);/*  delete  (CarmelJBigsur)  from  the  list*/ 
Pause(55*x,24*y); 

moveto(71*x,8*y);  lineto(86*x,8*y);/*  delete  (Salinas, Carmel)  from  list  */ 
moveto(2*x,19*y);  lineto(29*x,19*y);/*  delete  (Cannel3igsur)  from  list  */ 
outtextxy(77*x,15*y/2,"  15"); 

Pause(55*x,24*y); 

bar(43  *x,5 1  *y/4,90*x,49*y/2); 

outtextxy(43*x,20*y,".  Here,  as  you  see  we  connected"); 
outtextxy(43*x,21*y,"  all  the  existing  edges.  So  we"); 
outtextxy(43*x,22*y,"  are  done."); 


Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM  :  examp445.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  18, 1990 
REVISED  :  Apr.  18,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  a  Kruskal’s 
algorithm  implementation. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*1 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined(__TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  ! defined!  ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b; 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 
#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 
#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


j*  **  *  *  +  *  ***  *  *  ***  If  *  *  *  >tc  *  *  *  **  ***  *  *  *  *  1(1  *  *  *  *  **  **  ****  ***  *  *  *  *  +  *  He  +  *  *  +  *  *  *  *  *  **  *  *  *  *  j 

/*  graphic  initialization  variables  */ 

/+*  +  **  +  *  +  ***************  +  **  +  *  +  +  **  +  ****  +  *>t<*****  +  +  *****>t>  +  *  +  >l<***>t<  +  **  +  *  +  **Jty 

int  curr_mode; 

int  graphdriver; 

int  graplimode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY ; 


^*  *********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^t*********************************************************************^ 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 
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/*  This  fuction  initializes  the  necessary  graphical  routines  *1 

^**  ***********************************  **********************:(<:(>**  *******^ 


static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

y****************************************'!*****************-*********^ 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 


/*********************** 


*********************************************/ 


if(graph  error  <  0){ 

puts(grapherromisg(graph_error)); 

exit(l); 


y* *********************************  ********************************** 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphinode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  = 
ATT400MED)  II  (graphmode  —  MCGAHI)  II  (graphmode  =  ATT400HI))  { 
setfiUstyle(SOLID_HLL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor ) ; 
bar(43*x,23*y,179*x/2,97*y/4); 
setcolor(quitcolor) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS )  mshidecur(); 
outtextxy(44*x,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  H  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
setcolor(backcolor); 
bar(43*x,23*y,179*x/2,97*y/4); 
setcolor(quitcolor); 

outtextxy(44*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  I!  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(43*x,23*y,179+x/2,97*y/4); 
setcolor(quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(0); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(43*x.23*y,179*x/2,97*y/4); 
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setcolor(forecolor; , 
break; 

case  ’N’;  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(43*x,23*y,179*x/2,97*y/4); 

setcolor(forecolor); 

break; 

default ;  break; 

) 

hidecurO; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

( 

settextstyle(O.O.O); 

setlinestyle(0,4,3); 

settextjesiify(HORIZ_DIR,CENTER_TEXT); 


/ *  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

Jit  Jr********************************************************************^ 

void  Pause(i.j) 
int  i,  j; 

I 

settextf); 

outtextxy(i,j,"»PRESS  A  RiZY  TO  CONTINUE«"); 
iff  waitkeyf  )==ESC )  confirrn_groph_ex it(); 


984 


|  /*  main  routine  which  calls  exer  loutine  */ 

/*******************************************************¥**************/ 

void  main() 

( 

exer(); 

) 

^*****************'t‘*******'t>**********J(<**>M<>('****  +  *1t'*>(<******>t<**********t'%^ 

/*  This  routine  illustrates  an  implementation  of  the  Kruskal’s  MST  algorithm.  */ 
/****************************«*************«**************************%/ 
void  exer() 

( 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y  ,MaxX-x,MaxY -y/2); 

outtextxy(38*x,y/2,"EXAMPLE  4-4-6”); 

/************%***%***************************************************/ 

pieslice(5*x,7*y, 0,359,2);  /*  A  */ 

pieslice(10*x,7*y,0,359,2);  /*  B  */ 

pieslice(35*x,7*y,0,359,2);  /*  G  */ 

pieslice(20*x,4*y,0,359,2);  /*  D  */ 

pieslice(20*x,i0*y, 0,359,2);  /*  E  */ 

pieslice(20*x,3*y/2,0, 359,2);  /*  C  */ 

pieslice(20*x,25*y/2,0,359,2);  /*  F  *, 

outtextxy(3*x,7*y,"A"); 

outtextxy(36*x,7*y,"G”); 

outtextxy(20*x/2,15*y/2,"B"); 

outtextxy(20*x,9*y/2,"D"); 

outtextxy  (2 1  *x,3  *y/2,”C" ); 

outtextxy(  20*x,  1 9*y/2,”E" ); 

outtextxy(21*x,25*y/2,"F"); 

moveto(5*x,7*y);  lineto(10*x,7*y);  lineto(35*x,7*y); 
outtextxy(8*x.27*y/4,"l");  /*  (A,B)  */ 

> 
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outtextxy(20*x,27*y/4,"5");  /*  (B,G)  */ 

moveto(5*x,7*y);  lineto(20*x,4*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,3*y/2);  lineto(20*x,4*y); 
moveto(5*x,7*y);  lineto(20*x,10*y);  lineto(10*x,7*y); 
moveto(5*x,7*y);  lineto(20*x,25*y/2);  lineto(20*x,10*y); 
moveto(20*x,3*y/2);  lineto(35*x,7*y); 
moveto(20*x,4*y);  lineto(35*x,7*y); 
moveto(20*x,10*y);  lineto(35*x,7*y); 
moveto(20*x,25*y/2);  lineto(35*x,7*y); 
outtextxy(21*x,3*y,”2");  /*  (C,D)  */ 

outtextxy(21*x,l  l*y,"2");  /*  (E.F)  */ 

outtextxy(9*x,9*y/2,"4");  /*  (A,C)  */ 

outtextxy(l  l*x,8*y,"2");  /*  (A,E)  */ 

outtextxy(14*x,8*y,"3");  /*  (B,E)  */ 

outtextxy(29*x/2,6*y,"3");  /*  (B,D)  */ 

outtextxy(21*x/2,ll*y/2,"2");  /*  (A,D)  */ 
outtextxy(30*x,9*y/2,"4");  /*  (C,G)  */ 

outtextxy(25*x,17*y/2,"3");  /*  (E,G)  */ 

outtextxy(21*x/2,10*y,"3");  /*  (A,F)  */ 

outtextxy(27*x,21*y/2,"3");  /*  (F,G)  */ 

outtextxy(25*x,l  1  *y/2,"3");  /*  (D,G)  */ 

/★★♦♦if***************************************************************/ 

outtextxy(45  *x  ,3  *y/2, "EDGES  TO  CHECK"); 
outtextxy(67  *x  ,3  *y/2,"  WEIGHT" ); 
moveto(44*x,2*y);  lineto(60*x,2*y); 
moveto(65*x,2*y);  lineto(75*x,2*y); 

outtextxy(44*x,35*j7?,"THE  WAY  WE  APPLIED  KRUSKAL’S  ALGORITHM"); 
moveto(44*x ,  1 8 *y );  lineto(90*x ,  1 8 *y ); 
outtextxy(44*x,19*y,".  To  apply  tills  algorithm  we  will  sort  "); 
outtextxy(44*x,20*y,"  the  edges  from  the  least  to  the  great-"); 
outtextxy(44*x,21*y,"  est  and  we  will  list  them."); 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

outtextxy(49*x,3*y,"(A,B)");  outtextxy(70*x,3*y,"l"); 
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outtextxy(49*x,4*y,"(A,D)");  outtextxy(70*x,4*y,"2"); 
outtextxy(49*x,5*y,”(A,E)");  outtextxy(70*x,5*y,"2"); 
outtextxy(49*x,6*y,"(C,D)");  outtextxy(70*x,6*y,"2"); 
outtextxy(49*x,7*y,"(E,F)");  outtextxy(70*x,7*y,"2"); 
outtextxy(49*x,8*y,"(A,F)");  outtextxy(70*x,8*y,"3"); 
outtextxy(49*x,9*y,"(B,D)");  outtextxy(70*x,9*y,"3"); 
outtextxy(49*x,10*y,"(B,E)");  outtextxy(70*x,10*y,"3"); 
outtextxy(49*x,ll*y,"(D,G)");  outtextxy(70*x,l  l*y,"2"); 
outtextxy(49*x,12*y,"(E,G)");  outtextxy(70*x,12*y,"3"); 
outtextxy(49*x,13*y,"(F,G)");  outtextxy(70*x,13*y,"3"); 
outtextxy(49*x,14*y,"(A,C)");  outtextxy(70*x,14*y,"4"); 
outtextxy(49*x,15*y,"(C,G)");  outtextxy(70*x,15*y,"4"); 
outtextxy(49*x,  1 6*y ,"(B ,G )" );  outtextxy(70*x,  16*y,"5"); 

Pause(55*x,2^*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

outtextxy(44*x,19*y,".  Now  we  are  going  to  build  the  tree"); 
outtextxy(44*x,20*y,"  starting  from  the  least  edge."); 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

^*  ************+************************************  +  *****************/' 


pieslice(5*x,19*y  ,0,359,2);  /*  A  */ 

pieslice(10*x,19*y,0,359,2);  /*  B  */ 

pieslice(35*x,19*y,0,359,2);  /*  G  */ 

pieslice(20*x,16*y,0,359,2);  /*  D  */ 

pieslice(20*x,22*y ,0,359,2);  /*  E  */ 

pieslice(20*x,27*y/2,0,359,2);  /*  C  */ 
pieslice(20*x,49*y/2,0,359,2);  /*  F  */ 
outtextxy(3*x,19*y,"A"); 
outtextxy(36*x,19*y,"G"); 
outtextxy(20*x/2,39*y/2,"B"); 
outtextxy(20*x,33*y/2,"D"); 
outtextxy(2 1  *x .  1 3  *y  ,"C" ); 
outtextxy(20*x,43*y/2,"E"); 


outtextxy(21  *x,49*y/2,"F"); 
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moveto(5*x,19*y);  lineto(10*x,19*y); 
moveto(49*x,3*y);  lineto(54*x,3*y); 
outtextxy(8*x,75*y/4,"l");  /*  (A3)  */ 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

moveto(5 *x,  1 9*y );  lineto(20*x,16*y); 
moveto(49*x,4*y);  lineto(54*x,4*y); 
outtextxy(21*x/2,35*y/2,"2");  /*  (A,D)  */ 

Pause(55*x,24*y); 
bar(44*x  ,37 *y/2,89*x  ,49*y/2); 

/*****************************************************+**************/ 
moveto(5*x,19*y);  lineto(20*x,22*y); 
moveto(49*x  ,5 *y );  lineto(54*x,5 *y ); 
outtextxy(ll*x,20*y,"2");  /*  (A,E)  */ 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 


moveto(20*x,16*y);  lineto(20*x,27*y/2); 
inoveto(49*x,6*y);  lineto(54*x,6*y); 
outtextxy(21*x,15*y,"2");  /*  (C,D)  */ 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

y**^********)(t******************************!(<******i*n(o(<*****>ki(<J(<l<*%^^*J(<* 


moveto(20*x,22*y);  lineto(20*x,49*y/2); 
moveto(49*x,7*y);  lineto(54*x,7*y); 
outtextxy(21  *x,23*y,"2");  /*  (E,F)  */ 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

outtextxy(44*x,19*y,".  At  this  point  we  cannot  add  (A,F),"); 
outtextxy(44*x,20*y,"  (B,D),  or  (B,E)  to  the  tree,  because"); 
outtextxy(44*x,21*y,"  otherwise  we  would  have  cycle.  So  we"); 
outtextxy(44*x,22*y,"  we  will  skip  these  edges."); 
moveto(49*x,8*y);  lineto(72*x,8*y); 
moveto(49*x,9*y);  lineto(72*x,9*y); 
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moveto(49*x,10*y);  lineto(72*x,10*y); 

Pause(55*x,24*y); 

bar(44*x,37*y/2,89*x,49*y/2); 

/********************************************************************/ 


outtextxy(44*x,19*y,".  We  now  continue  from  where  we  left."); 
moveto(20*x,16*y);  lineto(35*x,19*y); 
moveto(49  *x ,  1 1  *y ) ;  lineto(54 *x ,  1 1  *y ); 
outtextxy(25*x,73*y/4,"3");  /*  (D,G)  */ 

outtextxy(44*x,20*y,"  We  added  (D,G)  to  the  tree.  As  you  "); 
outtextxy(44*x,21*y,"  see  adding  this  edge  completed  the"); 
outtextxy(44*x,22*y,"  existing  nodes  in  the  tree.  This  means"); 
outtextxy(44*x,23*y,"  we  are  done  and  we  stop  here."); 

j  ****  *  *  *  *  *****  **  i|c  *  ik  ***  ***  *  **  *  **  *  *****  *  *  *  ****  *  *  *  *  *  ***  *  *  **  *  *  **  ***  *  *  *  ** 

Pause(55*x,24*y); 

closegraph(); 

videoinit(); 


} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q441.c 

:  Atiiia  BAKAN 
:  Mar.  22, 1990 
:  Apr.  22, 1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  the  minimal 
spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxhnou.h" 

#if  def ined( _ .TURB  OC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined(_ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes 


*/ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


/***:|<**:|<:|i:f(***%****:|c**%**:|<%**:|<**it<ii>i|<*it<:|c*%**!|t:(<!|c*******%***>l<*****’l<*%*******/ 

/*  miscellaneous  global  variables  */ 

/**********************************************************************/ 
int  in_the_exercise  =  1; 


/*  graphic  initialization  variables  */ 

int  curr_modc; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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^**********************************************************************y 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**************4^******************************************************y 


static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 


*************++**+*******+********+****’ *************************++***/ 
/*  This  faction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

( 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 


initgraph(&graphdr  iver,&graphmode 
graph_error  =  graphresult(); 

^**********************1(1********#*****+#******%**********#***********^ 


if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 


MaxX  =  getmaxxO; 
MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25; 


settext(); 

^%*****^t*!(i*  +  *i<i(c**%**i(t  +  i(<*******i(i*  +  *i|<ii*j((***4<  +  ********>(<>(>it<  +  *>ti*>(<>(<***  +  *  +  *  +  >l •*  j 
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if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  — 
ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfi!lstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

I 


static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(  quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?”); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y')  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 
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switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default :  break; 

} 

hidecurf); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


I**** ********************* *******  ******** ****** ******************** ***♦/ 

/*  This  function  sets  the  text  default  values  */ 

I****** ************************* ************************* **************/ 

static  void  settext(void) 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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^************* **************************************************** *****/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/ 


k**************** 


void  Pause(i,j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()=ESC)  confirm _graph_exit(); 

} 


/**********************************************************************/ 
/*  main  routine  that  calls  exer  routine  */ 

/* - 

- *1 

void  mainO 

I 

exer(); 

I 


/*** ***************************************************** **********  **%>iy 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/**********************************************************************/ 
static  void  exer(void) 

( 

char  Ch; 


init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXERCISE  1"); 

/********************************************************************/ 
outtextxy(2*x,2*y,"Use  Prim’s  algorithm  to  find  a  minimal  spanning  tree.  (Start  at 
A.  If  there"); 
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outtextxy(2*x,3*y,"is  a  choice  of  edges  select  edges  according  to  alphabetical 
order.)"); 

y* *************************************************************** ****y 

pieslice(25*x,5*y,0,359,2);  /*  A  */ 

pieslice(35*x,5*y,0,359,2);  /*  B  */ 

pieslice(45*x,5*y, 0,359,2);  /*  C  */ 

pieslice(55*x,5*y,0,359,2);  /*  D  */ 

pieslice(25*x,8*y,0,359,2);  /*  E  */ 

pieslice(35*x,8*y,0,359,2);  /*  F  */ 

pieslice(45*x,8*y,0,359,2);  /*  G  */ 

pieslice(55*x,8*y,0,359,2);  /*  H  */ 

pieslice(35*x,l  l*y,0,359,2);  /*  I  V 
pieslice(45*x,J  l*y,0,359,2);  /*  J  */ 

y*********************************************************************^ 

outtextxy(25*x,9*y/2,"A"); 

outtextxy(35*x,9*y/2,"B"); 

outtextxy(45*x,9*y/2,"C"); 

outtextxy(55*x,9*y/2,"D"); 

outtextxy(23*x,8*y,"E"); 

outtextxy  ( 3  3  *x ,  1 7  *y/2,"  F" ); 

outtexixy(47*x,17*y/2,"G"); 

outtextxy(57*x,8*y,"H"); 

outtextxy(35*x,23*y/2,"I"); 

outtextxy(45*x,23*y/2,"J"); 

/*  *************************** *****************************************y 

outtextxy (30*x,9*y/2, "4");  /*  (A,  B)  */ 

outtextxy(50*x,9*y/2,"3");  /*  (C,  D)  */ 

outtextxy(23*x,13*y/2,"3");  /*  (A,  E)  */ 

outtextxy(36*x,13*y/2,"5");  /*  (B,  F)  */ 

outtextxy(43*x,13*y/2,"2");  /*  (C,  G)  */ 

outtextxy(56*x,13*y/2,"2");  /*  (D,  H)  */ 

outtextxy(50*x,6*y,"2");  /*  (C,  H)  */ 

outtextxy(30*x,15*y/2,"6");  /*  (E,  F)  */ 

outtextxy(40*x,15*y/2,"l");  /*  (F,  G)  */ 

outtextxy(49*x,15*y/2,"4");  /*  (G,  H)  */ 

outtextxy(33*x,19*y/2,"4”);  /*  (F,  I)  */ 
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outtextxy(40*x,23*y/2,"3");  /*  (I,  J)  */ 

outtextxy(46*x,19*y/2,"l");  /*  (G,J)  */ 

outtextxy(38*x,19*y/2,"2");  /*  (G,  I)  */ 

moveto(25*x,5*y);  lineto(35*x,5*y);  lineto(35*x,8*y); 

lineto(25 *x,8 *y );  lineto(25*x,5 *y); 

moveto(45 *x,8 *y);  lineto(45 *x,  1 1  *y );lineto(35 *x,  1 1  *y); 

lineto(35*x,8*y);  lineto(45  *x  ,8  *y ); 

moveto(35*x,ll*y);lineto(45*x,8*y); 

moveto(45*x,8*y);  lineto(45*x,5*y);  lineto(55*x,5*y); 

lineto(55*x,8*y);lineto(45*x,8*y); 

moveto(45*x,5*y);lineto(55*x,8*y); 

^l(l****l(t***l(<*it***j(<**lttl|t***l(<l|tl(<**!(<l(l*l(M(tj|<****  +  #*l(t*lt<*l|<*!(«*  +  *l(<***l|t****%*******^ 


wliile  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm _graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  =  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch=ESC)  confirm _graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  =  V)  II  (Ch  ==  ’c’)  II  (Ch  =  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 


) 

switch  (Ch)  ( 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
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s etcolor(back  olor); 

bar(50*x.37*y/2,179*x/2,2l*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

show_alg(); 

break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y>  "You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outiextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions( ); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y /'solution.  So  press  any  key  to  "); 
outtextxy(52*x, 21  *y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step.  solutionQ; 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confum_exit(); 
break; 

default  :  break; 

> 

) 

closegraph( ); 

) 
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^♦fc^*******************************************************************/ 

/*  This  routine  gives  Prim’s  minimal  spanning  tree  algorithm  */ 

y***************************************************************** **♦**/ 

static  void  show_alg(void ) 

I 

outtextxy(5*x,15*y,"Step  1  .  Pick  an  arbitrary  initial  vertex  x."); 
outtextxy(5*x,16*y,"  L  =  {  x  ),  T  =  0"); 
outtextxy(5*x,17*y,"Step  2  .  If  ILI  =  n  then  stop  and  output  T."); 
outtextxy(5*x,18*y,"Step  3  .  Else,  find  all  edges  with  one  vertex  Ui  in  L  and  the 
other  Vj"); 

outtextxy(5*x,19*y,"  which  is  not  in  L  yet.  Pick  the  one  with  least  weight, 
(U,V)"); 

outtextxy(5*x,20*y,"  L  <-  L  U  (V}"); 

outtextxy(5*x.21*y,"  T  <-  T  IJ  jU,  V}"); 
outtextxy<5*x,22*y,"  go  to  Step  2."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x,13*y,88*x,49*y/2); 

setcolor(forecolor); 


y**********************************************************************y 
/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

static  void  compare_solutions(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,13*y,179*x/2,49*y/2); 

y***********************-'***  -i****************************************!^ 

moveto(25*x,5*y);  lineto(35*x,5*y); 
moveto(25*x,5*y);  lineto(25*x,8*y); 
moveto(35*x,5*y);  lineto(35*x,8*y); 
moveto(35*x,8*y);  lineto(45*x.8*y); 
moveto(45*x,8*y);  lineto(35*x.l  l*y); 
moveto(45*x,8*y);  lineto(45*x,l  l*y); 
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moveto(45 *x,8 *y);  lineto(45*x,5 *y ); 
moveto(45 *x,5 *y);  lineto(55  *x,8 *y ); 
moveto(55*x,8*y);  lineto(55*x,5*y); 

^*  *  *  *  *  *  *  *  **  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  **  *  *  +/ 

setcolor(forecolor); 

setlinestyle(3,0,3); 

^********************************************************************/ 

moveto(25 *x,5*y );  lineto(35 *x,5*> ); 

inovcto(25  *x,5  *y );  lineto(25  *x,8  *y ); 

moveto(35*x,5*y);  lineto(35*x,8*y); 

moveto(35*x,8*y);  lineto(45*x,8*y); 

moveto(45*x,8*y);  lineto(35*x,l  l*y); 

moveto(45*x,8*y);  lineto(45’l‘x,l  1  *y); 

moveto(45*x,8*y);  lineto(45*x,5*y); 

moveto(45 *x,5 *y );  lineto(55  *x,8*y ); 

moveto(55*x,8*y);  lineto(55*x,5*y); 

^********************************************************************^ 

3etlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(  forecolor); 

^************************+************+***+**************************^ 

moveto(25*x,5*y);  lineto(35*x,5*y); 

moveto(25*x,5*y);  lineto(25*x,8*y); 

moveto(35*x,5*y);  lineto(35*x,8*y); 

mo  veto(  3  5  *x  ,8  *  y ) ;  Iineto(45 *x  ,8  *y ) ; 

moveto(45*x,8*y);  lineto(35*x,l  l*y); 

moveto(45*x,8*y);  lineto(45*x,l  l*y); 

moveto(45*x,8*y);  lineto(45*x,5*y); 

moveto(45*x,5*y);  lineto(55*x,8*y); 

moveto(55*x,8*y);  lineto(55*x,5*y); 

} 
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y************** ********************************************** ******** **^ 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

^*  ****************** ***************** **********************************/ 


static  void  step_solution(void) 

I 


setcolor(backcolor);  /*  Qean  the  game  field  */ 
bar(2*x,13*y,179*x/2,49*y/2); 
setcolor(forccolor) ; 

y********************************************************************y 


outtextxy  (62*x  ,5  *y "  L" ) ; 
outtextxy(69*x,9*y/2, "EDGES"); 
outtextxy(67*x,5*y,"TO  CHECK"); 
outtextxy(78*x,5*y,"  Wt."); 
outtextxy(86*x,5*y/T"); 
moveto(60*x,l  l*y/2);  lineto(65*x,l  l*y/2): 
moveto(66*x,ll*y/2);  lineto(7 5*x,l  l*y/2); 
moveto(77*x,l  l*y/2);  lineto(82*x,l  l*y/2); 
moveto(84*x,l  1  *y/2);  lineto(89*x,l  1  *y/2); 


y********************************************************************y 


outtextxy(62*x,6*y,"A"); 

Pause(30*x,24*y); 
outtextxy  (69*x,6*y ,"( A,  B )" ); 
outtextxy(79*x,6*y,"4"); 
outtextxy(69*x,7*y,"(A,E)"); 
outtextxy(79*x,7*y,"3"); 

Pause(30*x,24*y); 

outtextxy(84*x,7*y,"(A,E)”); 

setcolor(backcolor); 

moveto(  25  *x  ,5  *y );  lineto(25  *x,  8  *y ); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(25*x,5*y);  lineto(25*x,8*y);  /*  add  (A,  E)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,7*y);  lineto(74*x,7*y);  /*  delete  (A,E)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29 *x  ,23 *y  ,50*x  ,49*y/2); 
setcolorfforecolor); 

I********************************************************************/ 

outtextxy(62*x.8*y,"E 
Pause(30*x,24*y); 
outtextxy(69*x,8*y,"(E,  F)"); 
outtextxy(79*x,8*y,"6'); 

Pause(30*x,24*y); 
outtextxy(84*x,6*y ,"( A3 )' " ); 
setcolor(backcolor); 
moveto(25*x,5*y);  Iineto(35*x,5*y); 
setlinestyle(3 ,0,3 ); 
setcolor(forecolor); 

moveto( 25  *x,5  *y ) ;  lineto(35*x,5*y);  /*  add  (A,  B)  to  T  */ 
setiinestyle(0,0,3 ); 

moveto(69*x,6*y);  lineto(74*x,6*y);  /*  delete  (A,B)  from  tlie  list*/ 


Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 


setcolor(forecolor); 


y********************************************************************/ 


outtextxy(62*x,9*y,"B"); 

Pause(30*x,24*y); 

outtextxy(69*x,9*y,"(B,F)"); 

outtextxy(79*x,9*y,"5"); 

Pause(30*x,24*y); 
outtextxy(84*x,9*y  ,"(B  ,F)" ); 
setcolor(backcolor); 
moveto(35*x,5*y);  lineto(35*x,8*y); 
setlinestyle(3,0,3); 
setcolorfforecolor); 

moveto(35 *x ,5 *y );  lineto(35*x,8*y);  /*  add  (B,  F)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,9*y);  Iineto(74*x,9*y);  /*  delete  (B,  F)  from  the  list*/ 


Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 


outtextxy(62*x,10*y,"F"); 

Pause(30*x,24*y); 
outtextxy(69*x,10*y,"(F,G)"); 
outtextxy(79*x,10*y,"l"); 
outtextxy(69*x,l  l*y,"(F,I)"); 
outtextxy(79*x,l  1  *y,"4"); 

Pause(30*x,24*y); 
outtextxy(84*x,  1 0*y,"(F,G)"); 
setcolor(backcolor); 
moveto(35*x,8*y);  lineto(45*x,8*y); 
setlinestyle(3,0,3); 
setcolor(  forecolor); 

moveto(35*x,8*y);  lineto(45*x,8*y);  /*  add  (F,  G)  to  T  */ 
setlinestyle(0,0,3 ); 

moveto(69*x,10*y);  lineto(74*x,10*y);  /*  delete  (F,  G)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcoIor(forecolor); 


outtextxy(62*x,12*y,"G"); 

Pause(30*x,24*y); 

outtextxy(69*x,12*y,"(G,  CV'); 

outtextxy(79*x,12*y,"2"); 

outtextxy(69*x,13*y,"(G,  H)"); 

outtextxy(79*x,13*y,"4"); 

outtextxy(69*x,14*y,"(G,  I)"); 

outtextxy(79*x,14*y,"2"); 

outtextxy(69*x,15*y,"(G,  J)"); 

outtextxy(79*x,15*y,’T'); 

Pause(30*x,24*y); 

outtextxy(84*x,15*y,"(G,J)"); 

setcolor(backcolor); 
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moveto(45*x,8*y);  lineto(45*x,l  l*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(45*x,8*y);  lineto(45*x,l  l*y);  /*  add  (G,  J)  to  T  */ 
setiinestyle(0,0,3); 

moveto(69*x,15*y);  lineto(74*x,15*y);  /*  delete  (G,  J)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


outtextxy(62*x,16*y,"J"); 

Pause(30*x,24*y); 

outtextxy(69*x,16*y,"(JJ)"); 

outtextxy(79*x,16*y,"3"); 

Pause(30*x,24*y); 

outtextxy(84*x,12"‘y,"(G,C)"); 

setcolor(backcolor) ; 

moveto(45  *x  ,8  *y ) ;  lineto(45  *x,5  *y ); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(45*x,8*y);  lineto(45*x,5*y);  /*  add  (G,  C)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,12*y);  lineto(74*x,12*y);  /*  delete  (G,  C)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(62*x,  1 7  *y  ,"C" ); 

Pause(30*x,24*y); 
outtextxy(69*x,17*y,"(C,  D)"); 
outtextxy(79*x,17*y,"2"); 
outtextxy(69*x,18*y,"(C,  H)"); 
outtextxy(79*x,18*y,"2"); 

Pause(30*x,24*y); 
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outtextxy(84*x,14*y,"(G,I)"); 
setcolor(backcolor); 
moveto(45*x,8*y);  lineto(35*x,ll*y); 
setlinestylc(3,0,3); 

setcolor(forecolor); 

moveto(45*x,8*y);  lineto(35*x,ll*y);  /*  add  (G,  I)  to  T  */ 
setlinesty  le(0,0,3 ); 

moveto(69*x,I4*y);  lineto(74*x,14*y);  /*  delete  (G,  I)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/************************ ********************************i<*%*********y 


outtextxy(62*x,19*y,'T'); 

Pause(30*x,24*y); 

outtextxy(84*x,18*y,"(C,H)"); 

setcolor(backcolor ) ; 

moveto(45  *x  ,5  *y ) ;  lineto(55  *x  ,8  *y ); 

setlinesty  le(3, 0,3); 

setcolor(forecolor); 

moveto(45*x,5*y);  lineto(55‘;x,8*y);  /*  add  (C,  H)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,18*y);  lineto(74*x,18*y);  /*  delete  (C,  H)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^**+***++*************i(>i(<ii<*ii<*j(<i(<****+***‘t<')'*+****>t<*+++++**+>i<+>)<*>i<*+'(<++**+^ 

outtextxy(62*x,20*y,"H"); 

Pause(30*x,24*y); 
outtextxy(69*x,20*y,"(H,  D)"); 
outtextxy(79*x,20*y,"2"); 

Pause(30*x,24*y); 
outtextxy(84*x,20*y,"(H,D)"); 
setcoior(backcolor); 
moveto(55*x,5*y);  lineto(55*x,8*y); 
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setlinesty  le(3 ,0,3 ); 
setcolor(forecolor); 

moveto(55*x,5*y);  lineto(55*x,8*y);  /*  add  (H,  D)  to  T  */ 
setlinesty  le(0, 0,3); 

moveto(69*x,20*y);  lineto(74*x,20*y);  /*  delete  (H,  D)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23  *y  ,50*x,49*y/2); 

setcolor(forecolor) ; 


Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,  1 3  *y,179*x/2,49*y/2); 

bar(59*x,7*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

moveto(25*x,5*y);  lineto(35*x,5*y); 

moveto(25 *x ,5 *y );  lineto(25 *x,8 *y ); 

moveto(35*x,5*y);  lineto(35*x,8*y); 

moveto(35  *x  ,8  *y );  lineto(45  *x,8  *y ); 

moveto(45*x,8*y);  lineto(35*x,l  l*y); 

moveto(45*x,8*y);  lineto(45*x,l  1  *y); 

moveto(45  *x ,8  *y ) ;  lineto(45  *x ,5  *y ) ; 

moveto(45 *x,5 *y );  lineto(55 *x ,8*y); 

moveto(55*x,8*y);  Iineto(55*x,5*y); 

) 
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static  void  confirm_exit(void) 

I 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  =  ’n’)  II  (ch  =  *Y*)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 

bar(50*x,22*y,179*x/2,49*y/2); 

setcolor(forecolor); 

I 

switch  (ch)  { 

case  ’y’:  in_the_exercise  =  0; 
break, 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default ;  break; 

) 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q442.c 
:  Atilla  BAKAN 
:  Mar.  22, 1990 
:  Apr.  22, 1990 


DESCRIPTION  :  This  program  contains  the  second  exercise  about  the  minimal 
spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(__TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defmed(M_I86)  &&  !defmedL_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined(_ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _G  RAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


y* **** * * *** *  * *** * ** ** * *** ***** * ** * * * * * * **** * * * * * * ** * * **** * * * *** * * ** *** +! 

/*  miscellaneous  global  variables  */ 

^* *********************************************************************/ 
int  in_the_exercise  =  1; 


/************************  **********************************************/ 
/*  graphic  initialization  variables  */ 

^**********************************************************************/ 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quit  color; 

int  x,  y,  MaxX,  MaxY ; 
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y************ *************************************************** *******/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y******* ********************** ****** ***********************************y 


static  void  register_drivers(void) 

{ 

if(rcgisterbgidriver(CGA_driver)  <  0)  exit(l); 
if(rcgisterbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(rcgisterbgidriver(ATT_driver)  <  0)  exit(l); 

) 


y** ************************* ******* ******* ************* ****************y 

/*  Tliis  faction  initializes  the  necessary  graphical  routines  */ 

y*********************************** ********* **************************y 
static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

y********************************************************************y 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 


y*** 


******* 


**********************************************************y 


if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 


y********************************************************************y 

MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y********************************************************************y 

settext(); 

y********************************************************************y 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graplimode  == 
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ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfilistyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

) 


^******#*>(t*l(t*J(»*^I**j(tj(<j|lltt***j)t*  +  ******  +  *+**#^l***l(l**l(l*j)l******j|tl(t**4tlf**!(<***j(<**y 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

whde  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  =  y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  { 
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case  ’y’:  closegraph(); 
videoiiiit(); 
exit(O); 
break; 


case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 


case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4;; 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

mdecurO; 

if(_mouse&MS_C  JRS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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/*******************************************  +  *******  +  **********  +  **  +  *.-', , 

/*  This  function  sets  the  text  default  values  */ 

^**********<t***************-*************%*****  +  ************V4<*********i(<y 

static  void  settext(void) 

( 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORJZ_DIR,CENTER_TEXT); 


I*  *******>  V  .********************************************************** 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/********************************************************************** 
void  Pause(ij) 
int  i,  j; 

( 

settext(); 

outtextxy(i,j,”>»PRESS  A  KEY  TO  CONTINUE... <«"); 
il(waitkey(  )==ESC)  confirm_graph_exit(); 


*  *  *  *  *  *  *  *  *  *  *  +  *  *  *  *  *  *  *  *  *  *  *  *  *  **  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  *  *  *  +  *  %  +  ***  *  *  Jfr  *  J#r  *  +  +  *  %  jfr  *  +  + ^ 

/*  main  routine  which  calls  exer  routine  */ 

J  *******  *  *  +  *  **  *  ******  *  *****  ******  **  ♦4'  +  *  +  *  +  +  *1*1  ****  ***  *  ******  I***  *  ********  j 

void  main() 


exert); 

} 
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/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

^♦^i*******************************************************************/ 

static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy  (3  8  *x  ,y/2," EXERCIS E  2"); 

^********%*********************%**i|t**:(<**!|c**  +  **!|!it<  +  *i(<*:(<****s|<>l<**i|<l|c!»ci|<j|c**ity 


outtextxy(2*x,2*y,"Use  Kruskal’s  algorithm  to  find  a  minimal  spanning  tree.  (Start 
at  A.  If"); 

outtextxy(2*x,3*y, "there  is  a  choice  of  edges  select  edges  according  to  alphabeti¬ 
cal  order.)"); 


pieslice(25*x,5*y,0,359,2); 

pieslice(35*x,5*y,0,359,2); 

pieslice(45*x,5*y,0,359,2); 

pieslice(55*x,5*y,0,359,2); 

pieslice(25*x,8*y,0,359,2); 

pieslice(35*x,8*y,0,359,2); 

pieslice(45*x,8*y,0,359,2); 

pieslice(55*x,8*y,0,359,2); 

pieslice(35*x,l  l*y,0,359,2); 

pieslice(45*x,l  l*y.0,359,2); 


/*  A*/ 
/*  B  */ 
/*C*/ 
/*  D  */ 
/*  E  */ 
/*  F  */ 
/*  G  */ 
/*  H  */ 
/*  I  */ 
1*1*1 


****%**%**%************************%************************%**%****/ 


outtextxy(25*x,9*y/2,"A"); 

outtextxy(35*x,9*y/2,"B"); 

outtextxy(45*x,9*y/2,"C"); 

outtextxy(55*x,9*y/2,"D"); 

outtextxy  (23*x,8*y,"E"); 

outtextxy(33*x,17*y/2,"F”); 
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outtextxy(47*x,17*y/2,"G"); 

outtextxy(57*x,8*y,"H"); 


outtextxy(35  *x,23  *y/2,"I" ); 
outtextxy(45  *x  ,23 *y/2,"  J" ); 


/* ************************************************************* 


*******/ 


outtextxy(30*x,9*y/2,"4"); 

outtextxy(50*x,9*y/2,"3"); 

outtextxy(23  *x,  1 3*y/2,"3" ); 

outtextxy(36*x,13*y/2,"5"); 

outtextxy(43  *x,  1 3*y/2,"2"); 

outtextxy(56*x,13*y/2,"2"); 

outtextxy(50*x,6*y,”2"); 

outtextxy(30*x,15*y/2,"6"); 

outtextxy(40*x,15*y/2,"l"); 

outtextxy(49*x,15*y/2,"4"); 

outtextxy(33*x,19*y/2,"4"); 

outtextxy(40*x,23*y/2,"3"); 

outtextxy(46*x,  1 9*y/2,"  1 "); 

outtextxy(38*x,19*y/2,"2"); 


/*  (A,  B)  */ 
/*  (C,  D)  */ 
/*  (A,  E)  */ 
/*  (B.F)  */ 
/*  (C,G)  */ 
/*  (D,  H)  */ 
/*  (C,  H)  */ 
/*  (E,F)  */ 
/*  (F,  G)  */ 
/*  (G,  H)  */ 
/*  (F,  I)  */ 
/*  (U)  */ 
/*  (G,J)  */ 
/*  (G,I)  */ 


/*********************************************************************/ 


moveto(25*x,5*y);  lineto(35*x,5*y);  lineto(35*x,8*y); 
lineto(25*x,8*y);  lineto(25*x,5*y); 
moveto(45*x,8*y);  lineto(45*x,ll*y);lineto(35*x,ll*y); 
lineto(35*x,8*y);  lineto(45*x,8*y); 
moveto(35*x,l  l*y);lineto(45*x,8*y); 
moveto(45*x,8*y);  lineto(45*x,5*y);  lineto(55*x,5*y); 
lineto(55*x,8*y);lineto(45*x,8*y); 
moveto(45*x,5*y);lineto(55*x,8*y); 

/********************************************************************/ 


while  (in_the_exercise  =  1)  { 

outtextxy(l5*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,”  d)  This  is  enough  forme,  I  want  to  exit."); 
outtextxy(  1 5 *x,19*y, "Enter  your  choice  here  —  >"); 
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Ch  =  getch  (); 


if(Ch==ESC)  confirm_graph_exit(); 


while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  =  V)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch=ESC)  confirm_graph_exit(); 

if((Ch  =  ’a’)  II  (Ch  =  ’b’)  II  (Ch  =  ’c’)  II  (Ch  =  ’d’)>  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

) 

} 

switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y /'again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2, 179*x/2,21  *y); 
bar(2*x,13*y,179*x/2,49*y/2); 
setcolor(forecolor); 
show_alg(); 
break; 

case  ’b’:  outtextxy(47*x,19!|,y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x.37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c':  outtextxy(47*x,19*y,"c"); 
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outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y,"solution.  So  press  any  key  to  "); 
outtextxy(52*x, 21  *y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
break; 

default  :  break; 

) 

) 

closegraphQ; 


/*  This  routine  gives  Prim’s  minimal  spanning  tree  algorithm  */ 


static  void  show_alg(void) 

I 

outtextxy(5*x,15*y,"Step  1  .  Order  the  edges  from  smallest  weight  to  largest."); 
outtextxy(5*x,l7*y,"Step  2  .  Add  the  edges  in  order,  as  long  as  a  cycle  is  not"); 
outtextxy(5*x,18*y,"  created.  T  can  be  disconnected  until  it’s  completed." ); 
outtextxy(5*x,20*y,"Step  3  .  If  all  nodes  are  visited  STOP,  or  else  GO  TO  Step 

2."); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(2*x,13*y,88*x,49*y/2); 
setcolor(  forecolor); 
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^** *********************************************************** *********/ 
/*  Tliis  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

/**+****+**************************************************************/ 


static  void  compare_$olutions(void) 

{ 


setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,13*y,179*x/2,49*y/2); 

/********************************************************************/ 

inoveto(25  *x  ,5  *y );  lineto(35  *x,5  *y); 

movet o(25  *x  ,5  *y  ) ;  lineto(  25  *x  ,8  *y ); 

moveto(35*x,5*y);  lineto(35*x,8*y); 

moveto(35*x,8*y);  lineto(45*x,8*y); 

moveto(45  *x  ,8  *y ) ;  lineto(3  5  *x ,  1 1  *y ) ; 

moveto(45*x,8*y);  lineto(45*x,l  l*y); 

moveto(45  *x  ,8  *y ) ;  lineto(45  *x,5  *y ) ; 

moveto(45  *x  ,5  *y );  lineto(55  *x,5  *y); 

moveto(55  *x  ,8  *y );  lineto(55  *x,5  *y ); 

/********************************************************************/ 
setcolor(  forecolor); 

setlinestyle(3,0,3); 

^*  ******************************************************************  *^ 

moveto(25 *x,5 *y );  lineto(35 *x,5 *y); 

mo veto(25 *x ,5  *y );  lineto(25 *x,8  *y ); 

moveto(35*x,5*y);  lineto(35*x,8*y); 

mo veto(35 *x,8  *y );  lineto(45 *x ,8  *y ); 

moveto(45*x,8*y);  lineto(35*x,l  1  *y); 

moveto(45*x,8*y);  lineto(45*x,l  l*y); 

moveto(45*x,8*y);  lineto(45*x,5*y); 

moveto(45*x,5*y);  lineto(55*x,5*y); 

moveto(55*x,8*y);  lineto(55*x,5*y); 

y********************************************************************^ 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 
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setcolor(  forecolor); 

/********************************** ********* *************************/ 

moveto(25  *x  ,5  *y );  lineto(35*x,5  *y); 

moveto(25*x,5*y);  lineto(25*x,8*y); 

moveto(35*x,5*y);  lineto(35*x,8*y); 

moveto(3 5  *x  ,8  *y ) ;  lineto(45  *x,8  *y ) ; 

moveto(45*x,8*y);  lineto(35*x,l  1  *y); 

moveto(45*x,8*y);  lineto(45*x,l  l*y); 

moveto(45*x,8*y);  lineto(45*x,5*y); 

moveto(45*x,5*y);  lineto(55*x,5*y); 

moveto(55*x,8*y);  lineto(55*x,5*y); 


) 


^**********************************************************************^ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

^*************************** ******************************** ***********/ 
static  void  step_solution(void) 

I 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 

outtextxy(6 1  *x,5 *y ."EDGES  TO  CHECK"); 

outtextxy(78*x,5*y  ."WEIGHT"); 

moveto(60*x,I 1  *y/2);  lineto(75*x,l  l*y/2); 

moveto(77*x,l  l*y/2);  linetc(85*x,l  l*y/2); 

^********************************************************************y 


outtextxy(65*x,6*y ,"(F,G)");  outtextxy(8 1  *x,6*y 1 "); 
outtextxy(65*x,7*y,"(G,J)”);  outtextxy(81*x,7*y,'T"); 
outtextxy(65*x,8*y,"(C,H)");  outtextxy(81*x,10*y,"2"); 
outtextxy(65*x,9*y,"(D,H)");  outtextxy(81*x,l  l*y,"2"); 
outtextxy(65*x,10*y,"(G,C)");  outtextxy(81*x,9*y,"2"); 
outtextxy(65*x,ll*y,"(G,I)");  outtextxy(81*x,8*y,"2"); 
outtextxy(65*x,12*y,"(A,E)");  outtextxy(81*x,12*y,"3"); 
outtextxy(65*x,13*y,"(C,D)");  outtextxy(81*x,13*y,"3"); 
outtextxy(65*x,14*y,"(I,J)");  outtextxy(81*x,14*y,"3"); 
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outtextxy(65 *x,  1 5 *y  ,"(A3 )" );  outtextxy(8 1  *x,  1 5*y ,"4"); 
outtextxyv65*x,16*y,"(F,I)");  outtextxy(81*x,16*y,"4"); 
outtextxy(65*x,17*y,"(G,H)");  outtextxy(81*x,17*y,"4”); 
outtextxy(65 *x,  1 8 *y,"(B ,F)");  outtextxy(8 1 *x, 1 8 *y ,"5M); 
outtextxy(65*x,19*y,"(EJF)");  outtextxy(81*x,19*y,"6"); 


/ft*******************************************************************/ 


setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

moveto(25*x,5*y);  lineto(35*x,5*y);  lineto(35*x,8*y); 
lincto(25  *x,8  *y );  lineto(25  *x,5  *y ); 
moveto(45*x,8*y);  lineto(45*x,l  l*y);lineto(35*x,ll*y); 
lineto(35*x,8*y);  lineto(45*x,8*y); 
moveto(35*x,ll*y);lineto(45*x,8*y); 
moveto(45*x,8*y);  lineto(45*x,5*y);  lineto(55*x,5*y); 
lineto(55  *x,8  *y);lineto(45  *x,8  *y ); 
moveto(45*x,5*y);lineto(55*x,8*y); 
setcolor(forecolor); 

pieslice(25*x,5*y, 0,359,2);  /*  A  */ 

pieslice(35*x,5*y,0,359,2);  /*  B  */ 

pieslice(45*x,5*y,0,359,2);  /*  C  */ 

pieslice(55*x,5*y,0,359,2);  /*  D  */ 

pieslice(25*x,8*y,0,359,2);  /*  E  */ 

pieslice(35*x,8*y,0,359,2);  /*  F  */ 

pieslice(45*x, 8 *y, 0,359,2);  /*  G  */ 

pieslice(55*x,8*y ,0,359,2);  /*  H  */ 

pieslice(35*x,ll*y,0,359,2);  /*  I  */ 
pieslice(45*x,ll*y,0,359,2);  /*  J  */ 
Pause(30*x,24*y); 


moveto(65*x,6*y);  lineto(70*x,6*y); 

moveto(35*x.8*y);  lineto(45*x,8*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


/*  (F,G)  */ 
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j*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  %  *  «  *  *  4c  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ifj 

moveto(65*x,7*y);  lineto(70*x,7*y);  /*  (GJ)  */ 

moveto(45*x,8*y);  lineto(45*x,l l*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23  *y  ,50*x,49*y/2); 
setcolor(forecolor); 

moveto(65 *x ,8  *y );  lineto(70*x,8*y);  /*  (D,H)  */ 

moveto(55*x,5*y);  lineto(55*x,8*y); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

/ft*******************************************************************/ 

moveto(65*x,9*y);  lineto(70*x,9*y);  /*  (G,C)  */ 

moveto(45*x,5*y);  lineto(45*x,8*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

y* *******************************************************************/ 

moveto(65*x,10*y);  lineto(70*x,10*y);  /*  (G,I)  */ 
inoveto(45 *x,8 *y );  lineto(35 *x,  1 1  *y); 

Pause(30*x,24*y); 

«etco!or'bac!^ 

bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 


moveto(65*x,l  l*y);  lineto(70*x,l l*y);  /*  (A,E)  */ 
moveto(25*x,3*y);  lineto(25*x,8*y); 
Pause(30*x,24*y); 
setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 
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moveto(65*x,12*y);  lineto(70*x,12*y);  /*  (C,D)  */ 
moveto(45 *x,5*y);  lineto(55 *x ,5 *y ) ; 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(foiecolor) ; 

y********************************************************************/ 

moveto(65*x,13*y);  lineto(81*x,13*y);  /*  (I,J)  */ 
moveto(65*x,14*y);  lineto(70*x,14*y);  /*  (A,B)  */ 
moveto(25  *x,5  *y );  lineto(35*x,5*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23  *y,50*x,49*y/2); 

setcolor(forecolor); 

^ifr*******************************************************************/ 

moveto(65*x,15*y);  lineto(81*x,15*y);  /*  (F,I)  */ 

moveto(65*x,16*y);  lineto(81*x,16*y);  /*  (G,H)  */ 
moveto(65*x,17*y);  lineto(70*x,17*y);  /*  (B,F)  */ 
moveto(35*x,5*y);  Iineto(35*x,8*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 
outtextxy(65*x,21*y,"We  are  done."); 

y********************************#************#**********************/ 


Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  die  game  field  again  */ 

bar(2*x,13*y,179*x/2,49*y/2); 

bar(59*x,7*y/2,l  79*x/2,49*y/2); 

setcolor(forecolor); 

moveto(25*x,8*y);  lineto(35*x,8*y); 

moveto(35*x,8*y);  lineto(35*x,l  1  *y); 

moveto(35*x,l  1  *y  );lineto(45*x,l  1  *y); 

mo  veto(45  *x  ,8  *y ) ;  lineto(55  *x  ,8  *y ) ; 

moveto(45 *x ,5 *y ) ;  lineto(55 *x,8 *y ); 

} 
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static  void  confirm_exit(void) 

{ 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Aie  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  =  ’y’)  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 
case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’;  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

) 
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/*  PROGRAM  :  q443.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  22, 1990 
REVISED  :  Apr.  22,  1990 

DESCRIPTION  :  This  program  contains  the  third  exercise  about  the  minimal 
spanning  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h” 

#include  "cxlmou.h" 

#if  defined(_TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#defiiie  ff_attrib  attribute 

#endif 
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#define  GRAPH  T  DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  conflrm_exit  (void); 


/’ 


*  *  * + *  * + + * + *  *  *  *  *  * ++*  *  *  *  *  * + + *  *  *  *  * * *  #  *  ik  *  #  # + *** + *  *  *  ****  *  **  *  * + ******  >*<  *  * * * * * 
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/*  miscellaneous  global  variables  */ 

^*  *********************************************************************/ 
int  in_the_exercise  =  1 ; 


y*** ********* **+♦*+*+****  ******* ***************************************/ 
/*  graphic  initialization  variables  */ 

^* *********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/* ******************************************** *************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 


static  void  register_drivers(void) 
I 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 


^**********************************************************************/ 
/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/*  ******************** ***************** ***** ******* ******************  *^ 
initgraph(&  graphdriver  ,&graplimode ); 
graph_eiTor  =  grapliresult(); 

^* ********  +  *******************************  +  ***★*  +  * ‘V  ******%*********  +  **/ 

if(graph_en  or  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 


/******}<*************************************************************/ 
MaxX  =  gctmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

^***************************************************************>»-****^ 
settext( ); 

^********************************************************************^ 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  -= 
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ATT400MED)  I!  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  j 
setfiUstyle(SOLlD_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 


/**********************************************************************/ 
static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(quitcoIor ) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n”); 
ch  =  getch  (); 

if((cb  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  TT'V) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcoior(quitcolor); 

} 
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switch  (ch)  | 
case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 
setcolor(  forecolor) ; 
break; 

case  ’N’:  sttcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3l  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

( 

settextstylet  0,0,0); 
setlinestyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

^**********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey()=ESC)  confirm _graph_exit(); 

} 


/********************************************>«************************* 
/*  main  routine  that  calls  exer  routine  */ 

^*  ********************************************************************* 
void  main() 


exer(); 


^*  ******************************************************* **************y 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

j*>  **************************************  *******************************^ 

static  void  exer(void) 

I 

char  Ch; 


init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y,MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2, "EXERCISE  3"); 

/********************************************************************/ 
outtextxy(2*x,2*y,"Use  Prim’s  algorithm  to  find  a  minimal  spanning  tree.  (Start  at 
A.  If  there"); 
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pieslice(25*x,ll*y,0,359,2); 
pieslice(55*x,5*y,0,359,2); 
pieslice(55*x,ll*y,0,359,2); 
pieslice(35*x,7*y,0,359,2) 
pieslice(45*x,7*y,0,359,2) 
piesiice(35*x,9*y,0,359,2) 
pieslice(45*x,9*y,0,359,2) 


outtextxy(2*x,3*y,"is  a  choice  of  edges  select  edges  according  to  alphabetical 
order.)"); 

/ft********************************************************  *****  *****!ty 

pieslice(25*x,5*y,0,359,2);  /*  A  */ 

/*  B  */ 

/*C*/ 

/*  D  */ 

/*  E  */ 

/*  F  */ 

/*  G  */ 

/*  H  */ 

outtextxy(25  *x,9*y/2,"  A"); 
outtextxy(25  *x,23  *y/2,"B" ); 
outtextxy(55*x,9*y/2,"C"); 
outtextxy(55*x,23*y/2,”D"); 
outtextxy(33*x,7*y,"E"); 

outtextxy(46*x,7*y,"F"); 

outtextxyt33*x,9*y,"G"); 

outtextxy(46*x,9*y,"H"); 

/****** ’'***********%***********************>M************************>ty 

outtextxy(40*x,9*y/2,"4");  /*  (A,  C)  */ 

outtextxy(23*x,8*y,"6");  /*  (A,  B)  */ 

/*  (A,  E)  */ 

/*  (C,  D)  */ 

/*  (B,  D)  */ 

/*  (E,  G)  */ 

/*  (E,  F)  */ 

/*  (F,  G)  */ 

/*  (F,  H)  */ 

/*  (G,  H)  */ 

/*  (H,  D)  */ 

moveto(55*x,l  l*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 

Iineto(25*x,l  1  *y;;  lineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 


outtextxy(32*x,6*y,"2"); 

outtextxy(56*x,8*y,"5"); 

outtextxy(40*x,23*y/2,"3"); 

outtextxy(33*x,8*y,"2"); 

outtextxy(40*x,13*y/2,"2"); 

outtextxy(42*x,8*y,"2"); 

outtextxy(46*x,8*y 1 "); 

outtextxy(40*x,19*y/2,"3"); 

outtextxy(52*x,10*y,"l"); 
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lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 

^*  ******************  *************************************************^ 


while  (in_the_exercise  =  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y, "Enter  your  choice  here  —  >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

Ji/t  *******  *  **  ************  ***  ******  ***********  *  *  *******  **************  **  *J 

while  (!((Ch  ==  ’a’)  II  (Ch  =  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,'  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  V)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor (back  color); 

bar(50*x,37*y/2,88*x,20*y); 

setcoloi  (foi  ecolor ); 

) 


switch  (Ch)  { 
case  ’a’:  outtextxy(47,|'x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
ou;‘extxy(52*x,20*y, "again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2, 1 79*x/2,2 1  *y ); 
bar(2*x,13*y,179*x/2,49*y/2); 
setcolor(forecolor); 
show_alg(); 
break; 

case  ’b’:  outtextxy(47*x,19*y,"b”); 
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outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bai(2*x,13  *y,179*x/2,49*y/2); 

setcolor(forecolor); 

compaie_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
ounextxy(52*x,20*y /'solution.  So  press  any  key  to  "); 
outtextxy(52*x,21*y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confmn_exit(); 
break; 

default  :  break; 


closegraph(); 
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y*  *************************************************************** 

/*  This  routine  gives  Prim’s  minimal  spanning  tree  algorithm  , 

y**********************************************************************y 


******y 
*/ 


static  void  show_alg(void) 

I 

outtextxy(5*x,15*y,"Step  1  .  Pick  an  arbitrary  initial  vertex  x."); 
outtextxy(5*x,16*y,"  L  =  {  x  },T  =  0"); 
outtextxy(5*x,17*y,”Step  2  .  If  ILI  =  n  then  stop  and  output  T."); 
outtextxy(5*x,18*y,"Step  3  .  Else,  find  all  edges  with  one  vertex  Ui  in  L  and  the 
other  Vj  "); 

outtextxy(5*x,19*y,"  which  is  not  in  L  yet.  Pick  the  one  with  least  weight,  (U, 
V)"); 

outtextxy(5*x,20*y,"  L  <-  L  U  {V}"); 
outtextxy(5*x,21*y,"  T  <-  T  U  (U,V)”); 

outtextxy(5*x,22*y,"  go  to  Step  2."); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(2*x,13*y.88*x,49*y/2); 
setcolor(  forecolor); 
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^****** ******* ******************************* ********************* *****/ 
/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

y* *********************** ******** ***********************************  ***y 
static  void  compare_solutions(void) 


setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,  1 3  *y ,  1 79*x/2,49*y/2); 

/********************************************************************/ 


moveto(55*x,5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 
lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,ll*y); 
lineto(25*x,ll*y); 
moveto(35*x,7*y);lineto(35*x,9*y); 


j*  ****************************************************************** 


*/ 


setcolor(forecolor); 

setlinestyle(3,0,3); 

^********************************************************************^ 

moveto(55*x,5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 

lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,ll*y); 

lineto(25*x,l  l*y); 

moveto(35*x,7*y);lineto(35*x,9*y); 

y*  *************************************************************** ****y 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

^********************************************************************y> 

moveto(55*x,5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 
lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,l  l*y); 
lineto(25*x,l  1  *y); 
moveto(35*x,7*y);lineto(35*x,9*y); 

) 
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/**********************************************************************/ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/***%**********%******jfr*******************************************4>****y 

static  void  step_solution(void) 

I 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,l  3*y ,  1 79+:  /2,49*y/2); 
setcolor(  forecolor); 

/**********************************%*********************************/ 

outtextxy(62*x,5*y,"L"); 

outtextxy(69*x,9*y/2, "EDGES"); 

outtextxy(67*x,5*y,"TO  CHECK"); 

outtextxy(78*x,5','y,"  Wt."); 

outtextxy(86*x,5*y,"T”); 

moveto(60*x.l  1  *y/2);  lineto(65*x,l  1  *y/2); 

moveto(66*x,l  1  *y/2);  lineto(75*x,l  l^y^); 

moveto(77*x,l  l*y/2);  lineto(82*x,l  l*y/2); 

nioveto(84*x.l  1  *y/2);  lineto(89*x,l  1  *y/2); 

outtextxy(62*x,6*y,"A"); 

Pause(30*x,24*y); 

outtextxy(69*x,6*y,"(A,B)"); 

outtextxy(79*x,6*y,"6"); 

outtextxy(69*x,7*y,"(A,C)"); 

outtextxy(79*x,7*y,"4"); 

outtextxy(69*x,8*y,"(A,E)"); 

outtextxy(79*x,8*y,"2"); 

Pause(30*x,24*y); 

outtextxy(84*x,8*y,"(A,E)"); 

setcolor(backcolor); 

moveto(  25  *x  ,5  *y );  1  ineto(35  *x  ,7*y ); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(25*x,5*y);  lineto(35*x,7*y);  /*  add  (A,  E)  to  T  */ 
set!  inesfyle(  0,0,3); 
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moveto(69*x,8*y);  lineto(74*x,8*y);  /*  delete  (A,E)  from  the  list*/ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor) ; 

outtextxy  (62*x  ,9*y ,  "E" ) ; 

Pause(30*x,24*y); 
outtextxy(69*x,9*y,"(E,F)’’); 
outtextxy(79*x,9*y,”2"); 
outtextxy(69*x,  10*y  ,"(E,G )" ); 
outtextxy(79*x,10*y,"2"); 

Pause(30*x,24*y); 

outtextxy(84*x,6*y,"(E,F)"); 

setcolor(backcolor); 

moveto(35*x,7*y);  lineto(45*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(35*x,7*y);  lineto(45*x,7*y);  /*  add  (E,  F)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,9*y);  lineto(74*x,9*y);  /*  delete  (A,B)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/fr*******************************************************************/ 

outtextxy(62*x,l  1  *y,"F"); 

Pause(30*x,24*y); 
outtextxy(69*x,l  1  *y,"(F,G)"); 
outtextxy(79*x,l  l*y,"2"); 
outtextxy(69*x,12*y,"(F,H)"); 
outtextxy  (79*x,  1 2*y 1"); 

Pause(30*x,24*y); 
outtextxy(84*x,9*y,”(F,H)"); 
setcolor(backcolor); 
moveto(45*x,7*y);  lineto(45*x,9*y); 
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setlinestyle(3,0,3); 
setcolor(forecolor) ; 

moveto(45*x,7*y);  lineto(45*x,9*y);  /*  add  (F,  H)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,12*y);  lineto(74*x,12*y);  /*  delete  (F,  H)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*********« I************************** ********* ***********************/ 


outtextxy(62*x,13*y,"H"); 

Pause(30*x,24*y); 

outtextxy(69*x,13*y,"(H,D)"); 

outtextxy(79*x,13*y,"l"); 

outtextxy(69*x,14*y,"(H,G)"); 

outtextxy(79*x,I4*y,"3"); 

Pause(30*x,24*y); 

outtextxy(84*x,13*y,"(H,D)"); 

setcolor(backcolor); 

moveto(45*x,9*y);  lineto(55*x,l  l*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(45*x,9*y);  lineto(55*x,ll*y);  /*  add  (H,  D)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,13*y);  lineto(74*x,13*y);  /*  delete  (H,  D)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(  forecolor); 


/********************************************************************/ 

outtextxy(62*x,15*y,"D"); 

Pause(30*x,24*y); 
outtextxy(69*x,  1 5*y,"(D,B )" ); 
outtextxy(79*x,15*y,"3"); 
outtextxy(69*x,16*y,"(D,C)"); 
outtextxy(79*x,16*y,"5"); 
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Pause(30*x,24*y); 


outtextxy(84*x,10*y,"(E,G)"); 
setcolor(backcolor); 
moveto(35*x,7*y);  lineto(35*x,9*y); 
setlinestyle(3 ,0,3); 
setcolorfforecolor ) ; 

moveto(35*x,7*y);  lineto(35*x,9*y);  /*  add  (E,  G)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,10*y);  lineto(74*x,10*y);  /*  delete  (E,  G)  from  the  list*/ 

Pause(30*x,24*y); 

set  color(backc  olor) ; 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(  forecolor); 

outtextxy(62*x,  1 7*y  ,"G"); 

Pause(30*x,24*y); 
outtextxy(69*x,17*y ,"-"); 
outtextxy(79*x,17*y,"-"); 

Pause(30*x,24*y); 

outtextxy(84*r,15*y,"(D3)"); 

setcolor(backcolor); 

moveto(25*x,l  1  *y );  lineto(55*x,l  1  *y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(25*x,ll*y);  lineto(55*x,l  l*y);  /*  add  (D,  B)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,15*y);  lineto(74*x,15*y);  /*  delete  (D,  B)  from  the  list*/ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y.50*x,49*y/2); 

setcolor(  forecolor); 

outtextxy(62*x,18*y,"B"); 

Pause(30*x,24*y); 

outtextxy(69*x,18*y,”-"); 

outtextxy(79*x,18*y,”-"); 
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outtextxy(84*x,7*y,"(A,C)"); 
setcolor(backcolor); 
moveto(25*x,5*y);  lineto(55*x,5*y); 
setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(25*x,5*y);  lineto(55*x,5*y);  /*  add  (A,  C)  to  T  */ 
setlinestyle(0,0,3); 

moveto(69*x,7*y);  lineto(74*x,7*y);  /*  delete  (A,  C)  from  the  list*/ 

Pause(30*x,24*y); 

se  ^olor(backcolor ) ; 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


outtextxy(62*x,20*y,"We  are  done."); 


/*******************  ******  ifc ****** ********  ********************* ******^ 


Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 
bar(2*x,  1 3  *y ,  1 79*x/2,49*y/2); 
bar(59*x,7*y/2,179*x/2,49*y/2); 
setcolor(forecolor); 

moveto(55*x.5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 
lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,l  l*y); 
lineto(25*x,ll*y); 
moveto(35*x,7*y);lineto(35*x,9*y); 
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/***.*  ********* ************************************************** <******♦/ 
static  void  confirm_exit(void) 


char  ch; 

outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21  *y,"Type  y  or  n  -- "); 
ch  =  getch  (); 

while  (!((ch  =-  ’y’)  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 

bar(50*x,22*y,179*x/2,49*y/2); 

setc^>lor(forecolor); 

} 

switch  (ch)  { 
case  y :  in_the_exercise  =  0; 
break; 

case  ’Y’;  in_the_exercise  =  0; 
break; 

case  ’n’;  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2.22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default ;  break; 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q444.c 

:  Atilla  BAKAN 
:  Mar.  22, 1990 
:  Apr.  22,  1990 


DESCRIPTION  :  This  program  contains  the  forth  exercise  about  the  minimal 
spanning  trees. 


MACHENE/COMPiLEk  :  This  program  is  written  with  TBM  pc  by  using  Turb'' 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !definedt_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios.  keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#defin**  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined;  _ZTC__)  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

‘‘define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


^* *****************%***************************************************/ 
/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 


/*  graphic  initialization  variables  */ 

/ft*********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_ei  ror; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x.  y.  MaxX,  MaxY, 
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/ 


l********************************************************************** 


/ 


/*  TIi is  function  is  used  for  including  drivers  to  the  executable  code  */ 

^stt********************************************************************/ 

static  void  register_drivers(void) 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


/**********************************************************************/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 


static  void  init_graph(void) 

I 


int  xasp.  yasp; 


register_drivers(); 
graphdriver  =  DETECT ; 

/*****+**************************************************************/ 

initgraph(&graphdriver,&graphmode,""); 

graph_eiTor  =  graphresult(); 

if(graph_error  <  0){ 

puts(grapherronnsg(graph_error)); 

exit(l); 


MaxX  =  getmaxx( ); 

MaxY  =  getinaxyO; 
x  =  MaxX/80; 
y  =  MaxY/23; 

y********************************************************************^ 

settext(); 

^*  **********************************************%********************/ 
if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphntode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI)) 
setfiUstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 


{ 


quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 


forecolor  =  WHITE; 


> 


^*  ******************%**************************************************/ 
static  void  confurn_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 


setcolor(  backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4>; 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
cli  =  getch  (); 

while  (!((ch  ==  ’y)  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  'N')))  { 


outtextxy(32*x,24*y,”  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  'y')  II  (ch  ==  ’n’)  II  (ch  ==  *Y’)  II  fch  ==  'N')) 
setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 
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switch  (ch)  { 

case  ’y closegraphQ; 
videoinitQ; 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoiiiit(); 
exit(O); 
break; 

case  ’n’.  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

/%**************%*********%****%****%***%**********%***%*****%****%*%**/ 
/*  This  function  sets  the  text  default  values  */ 

/%***************************************%#*************%**************/ 
static  void  settext(void) 

( 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

) 


/**************************************************************+****+**/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/*%*********************%**********************************************/ 

void  Pause(i.j) 
int  i,  j; 

i 

settext(); 

outtextxy (i ,j , ”»>PRESS  A  KEY  TO  CONTINUE... <<<”); 
if(waitkey()=ESC)  confirm_graph_exit(); 

) 


/**********+**+**********************************+*********+**++*******/ 

/*  main  routine  which  calls  exer  routine  */ 

/**************************%*************%****%******************%****’ty 

void  main() 


exer(); 
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/♦if********************************************************************/ 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

I*  makes  necessary  explanations  */ 

static  void  exer(void) 

I 

char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXERCISE  4"); 

/♦a*****************************************************************/ 

outtextxy(2*x.2*y,"Use  Kruskal’s  algorithm  to  find  a  minimal  spanning  tree.  (Start 
at  A.  If"); 

outtextxy(2*x,3*y, "there  is  a  choice  of  edges  select  edges  according  to  alphabeti¬ 
cal  order.)"); 

y* *******************************************************************/ 

pieslice(25  *x, 5  *y, 0,359,2);  /*  A  */ 

pieslice(25*x,l  l*y ,0,359,2);  /*  B  */ 

pieslice(55*x,5*y  ,0,359,2);  /*  C  */ 

pieslice(55*x,  1 1  +y, 0,359, 2);  /*  D  */ 
pieslice(35*x,7*y, 0,359,2);  /*  E  */ 

pieslice(45*x,7*y,0,359,2);  /*  F  */ 

pieslice(35*x,9*y,0,359,2);  /*  G  */ 

pieslice(45*x.9*y,0,359,2);  /*  H  */ 

y* *********•************************+*********************************/ 

outtextxy(25*x,9*y/2,"A"); 

outtextxy(25*x,23*y/2,"B"); 

outtextxy(55*x,9*y/2,"C"); 

outtextxy(55*x,23*y/2,"D"); 

outtextxy(33*x,7*y,"E"); 

outtextxy(46*x,7*y,"F"); 

outtextxy(33*x,9*y,"G"); 

outtextxy(46*x,9*y,"H"); 
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/*********************************************************************/ 
outtextxy(40*x,9*y/2,"4");  /*  (A,  C)  */ 

outtextxy(23*x,8*y,"6");  /*  (A,  B)  */ 

outtextxy(32*x,6*y,"2");  /*  (A,  E)  */ 

outtextxy(56*x,8*y,"5");  /*  (C,  D)  */ 

outtextxy(40*x,23*y/2,"3 ”);  /*  (B,D)  */ 

outtextxy(33*x,8*y,"2");  /*  (E,  G)  */ 

outtextxy(40*x,13*y/2,"2");  /*  (E,  F)  */ 

outtextxy(42*x,8*y,"2");  /*  (F,  G)  */ 

outtextxy(46*x,8*y,"l");  /*  (F,  H)  */ 

outtextxy(40*x,19*y/2,"3");  /*  (G,  H)  */ 

outtextxy(52*x,10*y,"l");  /*  (H,  D)  */ 

************************************************************ I 

moveto(55*x,l  l*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*x,l  l*y);  lineto(55*x,l  l*y);lineto(45*x,9*y); 

Iineto(45*x,7*y);  Iineto(35*x,7*y);  lineto(35*x,9*y); 
lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 

moveto(25*x,5*y);lineto(35*x,7*y); 

while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution.”); 
outtextxy(  15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,I9*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  ( ); 

if(Ch==ESC)  confinn_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  | 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  V)  II  (Ch  ==  V)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 
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bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

} 


switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue.”); 
Pause(30*x,24*y); 
setcolor(backcolor ); 

bar(50*x,37*y/2,179*x/2,21*y); 

bai(2*x,  1 3*y ,  1 79*x/2,49*y/2); 

setcolor(forecolor); 

show_alg(); 

break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_soIutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 


outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x, 21  *y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor ); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor'forecolor); 

step_solution(); 
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break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confinn_exit(); 
break; 

default  :  break; 

) 

) 

closegraph(); 


/**********************************************************************/ 


/*  This  routine  gives  Prim’s  minimal  spanning  tree  algorithm  */ 

/******************************jM**************************************/ 


static  void  show_alg(void) 

{ 

outtextxy(5*x,15*y,"Step  1  .  Order  the  edges  from  smallest  weight  to  largest."); 
outtextxy(5*x,17*y,"Step  2  .  Add  the  edges  in  order,  as  long  as  a  cycle  is  not"); 
outtextxy(5*x,18*y,"  created.  T  can  be  disconnected  until  it’s  completed."  ); 
outtextxy(5*x,20*y,"Step  3  .  If  all  nodes  are  visited  STOP,  or  else  GO  TO  Step 

2."); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(2*x,  1 3*y,88*x,49*y/2); 
setcolor(forecoloi ); 

) 
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/**********************************************************************/ 
/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

^c*********************************************************************^ 

static  void  compare_solutions(void) 

{ 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,13*y,179*x/2,49*y/2); 

^tc*****************  ************  ##**+***>*1**********+**********+*******^ 


moveto(55*x,5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 
lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,l l*y); 
lineto(25*x,l  l*y); 
inoveto(35*x,7*y);lineto(35*x,9*y); 

^*********************************** ********** ***********************/ 


setcolor(forecolor); 

setlinestyle(3,0,3); 

/**********  ******************************  +  ************  +  ****  +  >l<3frj|<’M*  +  +  3l(*y 

moveto(55*x,5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 
lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,ll*y); 
lineto(25*x,ll*y); 
moveto(35*x,7*y);lineto(35*x,9*y); 

^*  *******************************************************************/ 


setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolorf  forecolor); 

^*  *******************************************************************/ 

moveto(35*x,5*y);  lineto(25*x,5*y);  lineto(35*x,7*y); 

lineto(45*x,7*y);  lineto(45*x,9*y);  lineto(55*x,l  l*y); 

lineto(25*x,l  l*y); 

moveto(35*x,7*y);lineto(35*x,9*y); 

1 
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y*********** ********************************************* **************/ 

/*  ’I'1«in  #r  1 1  >Afi  fVta  n#A«%  l«i  >  n^A»%  nnlat^i  ai-i  *a  tKo  awarAtoA  *^ 


/*  This  routine  gives  the  step  by  step  solution  to  the  exercise 

^d*********************** ************* *****#**##****************##*****/ 


static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

y********************************************************************^ 

outtextxy(61*x,5*y, "EDGES  TO  CHECK"); 
outtextxy(78*x,5*y, "WEIGHT"); 
moveto(60*x,l  l*y/2);  lineto(75*x,l l*y/2); 
moveto(77*x,l  l*y/2);  lineto(85*x,l  l*y/2); 
/********************************************************************/ 
outtextxy(65 *x,6*y  ,"(F,H )");  outtextxy(8 1  *x,6*y ,"  1 " ); 
outtextxy(65*x,7*y,"(H,D)");  outtextxy(81*x,7*y,"l"); 
outtextxy(65*x,8*y,"(A,E)");  outtextxy(81*x,10*y,"2"); 
outtextxy(65*x,9*y,"(E,F)");  outtextxy(81*x,l  l*y,"2”); 
outtextxy(65*x,10*y,"(E,G)");  outtextxy(81*x,9*y,"2"); 
outtextxy(65*x,l  1  *y,"(F,G)");  outtextxy(81*x,8*y,"2"); 
outtextxy(65*x,12*y,"(B,D)");  outtextxy(81*x,12*y,"3"); 
outtextxy(65*x,13*y,"(G,H)");  outtextxy(81*x,13*y,"3"); 
outtextxy(65*x,14*y,"(A,C)");  outtextxy(81*x,14*y,"3"); 
outtextxy(65*x,15*y,"(C,D)");  outtextxy(81*x,15*y,"4"); 
outtextxy(65*x,16*y,"(A,B)");  outtextxy(8I*x,16*y,"4"); 

y********************************************************************/ 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

moveto(55*x,l  l*y);  lineto(55*x,5*y);  lineto(25*x,5*y); 
lineto(25*x,l  l*y);  lineto(55*x,l  l*y);lineto(45*x,9*y); 
lineto(45*x,7*y);  lineto(35*x,7*y);  lineto(35*x,9*y); 
lineto(45*x,9*y); 

moveto(45*x,7*y);lineto(35*x,9*y); 
moveto(  25  *x  .5  *y  );lineto(3  5  *x  ,7  *y ); 
setcolor(  forecolor); 

y********************************************************************^ 
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/*  A  */ 
/*  B  */ 
/*  C  */ 
/*  D  */ 
/*  E  */ 
/*  F  */ 
/*  G  */ 
/*  H  */ 


pieslice(25*x,5*y,0,359,2); 
pieslice(25*x,l  l*y, 0,359,2); 
pieslice(55*x,5*y, 0,359,2); 
pieslice(55*x,l  1  *y  ,0,359,2); 
pieslice(35*x,7*y,0,359,2); 
pieslice(45*x,7*y, 0,359,2); 
pieslice(35*x,9*y,0,359,2); 
pieslice(45*x,9*y,0,359,2); 

Pause(30*x,24*y); 

moveto(65*x,6*y);  lineto(70*x,6*y);  /*  (F,H)  */ 

moveto(45 *x,7*y );  lineto(45 *x,9*y ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^%***%***%**********************************%*********>l<%************>ty 

moveto(65*x,7*y);  lineto(70*x,7*y);  /*  (H,D)  */ 

moveto(45*x,9*y);  lineto(55*x,l  l*y); 

Pause(30*x,24*y/); 
setcoior(batkcolui ), 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 


moveto(65*x,8*y);  lineto(70*x,8*y);  /*  (A,E)  */ 

moveto(25*x,5*y);  lineto(35*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/♦fr******************************************#***********************/ 

moveto(65*x,9*y);  lir»eto(70*x,9*y);  /*  (E,F)  */ 

movefo(35 *x ,7 *y );  liiieto(45 *x,7  *y ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 


1053 


setcolor(forecolor); 

/*****%*************************************%************************y 


moveto(65*x,10*y);  lineto(70*x,10*y);  /*  (E,G)  */ 

moveto(35*x,7*y);  lineto(35*x,9*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(  forecolor); 


/*****  *********************************************************  ******  i 


moveto(65*x,l  l*y);  lineto(81*x,ll*y);  /*  (F,G)  */ 
moveto(65*x,12*y);  lineto(70*x,12*y);  /*  (B,D)  */ 
moveto(25*x,l  1  *y);  lineto(55*x,l  l*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 


moveto(65*x,13*y);  lineto(81*x,13*y);  /*  (G,H)  */ 
moveto(65*x,14*y);  lineto(70*x,14*y);  /*  (A,C)  */ 
moveto(25*x,5*y);  lineto(55*x,5*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^l********************************************************************^ 


outtextxy(65*x,I8*y,"We  are  done.”); 

y****************************************’-************************* 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,13*y,179*x/2,49*y/2); 

bar(59*x,7*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

moveto(25*x,5*y);  lineto(25*x,l  l*y); 
moveto(45*x,7*y );  lineto(35*x,9*y);  lineto(45*x,9*y); 
rrioveto(55*x.5*y);  lineto(55*x,l  l*y); 
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y*****************************************************************,,****/ 

static  void  confirm_exit(void) 

{ 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y  "Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  I!  (ch  =  ’Y’)  II  (ch  =  ’IS  )))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 


switch  (ch)  ( 
case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’;  in_the_exercise  =  0; 
break; 


case  ’n’:  setcolor(backcolor); 

bar(46*x, 37*y/2, 179*x/2,22*y); 

setcolor(forecolor); 

break; 


case  ’N’;  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default  :  break; 
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/*  PROGRAM  :  binary  .c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Feb.  14,  1990 

REVISED  :  Apr.  17,  1990 

DESCRIPTION  :  This  program  contains  the  tutorial  for  binary  trees. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

*/ 

/*  header  files  */ 

#include  <process.h> 

#include  "cxldef.h" 

#include  "cxlkey.h” 

#include  "cxlmou.h" 

#include  "cxlstr.h" 

#include  "cxlvid.h" 

#include  "cxlwin.h" 


#if  defined(_TURBOC _ ) 

#include  <dir.h> 

#else 

#include  <direct.h> 
#endif 


/*  Turbo  C  */ 


/*  all  others  */ 


#if  defined(M_I86)  &&  !defined(_ZTC_) 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 
#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#el  if  defined(_ZTC _ )  /*  2 

#define  ffblk  FIND 


/*  MSC/QuickC  */ 


/*  Zortech  C/C++  */ 


#define  ff_name 
#define  ff_attrib 
#endif 


attribute 
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#define  _GRAPH_T_DEFINED 

/*  function  pi  ot otypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confirm_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_a_key  (int  wrow); 

static  void  pre_help  (void); 

static  void  quit_window  (void); 

static  void  restore_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow.int  necol); 

/*  tutorial  functions  */ 
static  void  binary _trees  (void); 
static  void  definition_4_5_l  (void); 
static  void  ex_binary_l  (void); 
static  void  ex_binary_2  (void); 
static  void  ex_bimry_3  (void); 
static  void  ex_binary_4  (void); 
static  void  ex_binary_5  (void); 
static  void  ex_binaiy_6  (void); 
static  void  ex_binary_7  (void); 
static  void  ex_binary_8  (void); 
static  void  ex_binary_9  (void); 
static  void  ex_binary_10  (void); 
static  void  expression  (void); 
static  void  preorder  (void); 
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static  void  postorder  (void); 

static  void  inorder 

(void); 

static  void  PI 

(void); 

static  void  P2 

(void); 

static  void  P3 

(void); 

static  void  P4 

(void); 

static  void  P5 

(void); 

static  void  P6 

(void); 

static  void  P7 

(void); 

static  void  P8 

(void); 

static  void  P9 

(void); 

static  void  P10 

(void); 

static  void  P 1 1 

(void); 

static  void  PI 2 

(void); 

static  void  P 1 3 

(void); 

static  void  P14 

(void); 

static  void  PI 5 

(void); 

static  void  P16 

(void); 

static  void  P17 

(void); 

static  void  P18 

(void); 

static  void  P19 

(void); 

static  void  P20 

(void); 

static  void  P21 

(void); 

static  void  P22 

(void); 

static  void  P23 

(void); 

static  void  P24 

(void); 

static  void  P25 

(void); 

static  void  P26 

(void); 

static  void  P27 

(void); 

static  void  P28 

(void); 

static  void  P29 

(void); 

static  void  P30 

(void); 

static  void  polish 

(void); 

static  void  exercises 

(void); 

static  void  exerl 

(void); 

static  void  exer2 

(void); 
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static  void  exer3 
static  void  exer4 
static  void  exer5 
static  void  exer6 
static  void  exer7 
static  void  exer8 
static  void  exer9 
static  void  exerlO 
static  void  exerl  1 
static  void  exerl? 


(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void); 

(void) 

(void) 

(void) 


/************************************************************+******+**/ 
/*  miscellaneous  global  variables  */ 

static  int  *savescm,crow,ccol; 
static  WINDOW  w[10]; 
static  char  ssan[10J; 


/ 


************* 


♦★■fr******************************************************/ 


graphic  initialization  variables 
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/**********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  grapli_error; 

int  backcolor; 

int  forecolor; 

int  x,  y,  MaxX,  MaxY ; 


^**++*********************>t<i(<*******************************************y 

/*  error  message  table  */ 

/************************* *t*************, i,*****************************/ 

static  char  *error_text[]=  { 

NULL,  /*  errnum  =  0,  no  error  */ 

NULL,  /*  errnum  ==  1,  windowing  error  */ 

"Syntax:  CXLDEMO  [-switchesj\n\n" 
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”\t  -c  =  CGA  snow  eliinination\n" 

"St  -b  =  BIOS  screen  writingNn'' 

'V  -m  =  force  monoclirome  text  attributes", 
"Memory  allocation  error" 

); 


/*  miscellaneous  defines  */ 

^**4^*********%*************************************************%****%*/ 

#define  SHORT_DELAY  18 
#define  H_WINTITLE  33 

/*  this  function  will  add  a  shadow  to  the  active  window  */ 

static  void  add_shadov(void) 


wshadow(LGREYI_BLACK); 

> 


^****  ^t*****************************************************************/ 

/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 

^**%**********%**%*****************^********%*************%***********>ty 


static  void  confirm_quit(void) 

{ 

struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS )  mshidecur( ); 

if( !  wopen(9,26, 1 3 ,55,0,WH1TEI_BROWN,WHITEI_BROWN))  error_exit(  1 ); 
add_shadow( ); 

wputs(’Vi  Quit  demo,  are  you  sureT^DSAMSOYNb"); 

clearkeysO; 

showcur(); 

if( wgetchf( " YN ", ’ Y  ’  )==  ’  Y ’)  nonnal_exit(); 
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wclose(); 

liidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/**********************************************************************/ 
/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

/********************************************:(<****!((********************/ 

static  void  disp_sure_msg(void) 


wprints(0,2,WHITELBLUE,"Are  you  sure?”); 

) 


^*  **+*+*****+********+**<(<**********************+*+*+**********++******+/ 


//*  this  function  handles  abnormal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1 ,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

/**********************************************************************/ 


static  void  error_exit(int  ermum) 

{ 

if(ermum)  { 

printff  "\n%s\n"  ,(ermum==  1  )?werrmsg(  ):error_text  [ermum] ); 
exit(ermum); 

) 


/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

^%  *%%%%**%%%)((*%****%%%***********%**%***}<<*  **%%)K****%*>t<**’i<****%**%%>f<%*’’icJty 

static  void  initialize! void) 

{ 

/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinit(); 

readcur(&crow  ,&ccol ); 
if((savescm=ssave())==NULL)  error_exit(3); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  ( 
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mssupport(MS_FULL); 
msgotoxy(  12,49); 

> 

/*  attach  [Alt-X]  to  the  confirm_quit()  function  */ 
setonkey(0x2d00,confirm_quit,0); 

/*  attach  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400, Pageup, 0); 


/*  attach  [Ctrl  Pagedown]  to  the  Pagedown()  function  */ 
setonkey(0x7600,Pagedown,0); 

!*  initialize  help  system,  help  key  =  [FI]  */ 

whelpdef("CXLDEMO.HLP",Ox3bOO,YELLOWLRED,LREDI_RED, 
WHITELRED,REDI_LGREY  ,pre_help); 


/*****%***********%*****%***********%*****%****************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

^♦♦♦it'******************************************************************/ 

static  void  Pageup(void) 

( 

static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  -  1); 


I 

y********!(<**!|(****!|<%****!(<%****  +  ****  +  j|tl(l#*  +  +  !fr%***********!|<:<<*!|<!|tj|<***!)<!tC!(<!|c,|<l(<!tl!ty 

/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

static  void  Pagedown(void) 


static  WINDOW  handle; 


handle  =  whandle(); 
wactiv(handle  +  1 ); 


1062 


^*********** ******************** 


**><********** 


**************************/ 


static  void  pre_help(void) 

{ 

add_shadow(); 

setonkey(0x2d00,confinn_quit,0); 

} 


^**********************************************************************^ 
/*  this  function  handles  normal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

^**********************************************************************^ 


static  void  normal_exit(void) 

{ 


srestore(savescm); 

gotoxy_(crow.ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 


I 


^**********************************************************************y 
/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

y***** *********************************************************** ******/ 


static  void  press_a_key(int  wrow) 

I 

register  int  attrl; 
register  int  attr2; 


attrl  =(YELLOW)l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters(wrow, attrl, "Press  a  key"); 
wprints(wrow,0,LGREYI_RED,"Pgup/Pgdn"); 
hidecur(); 

if(waitkcy()==ESC)  confirm_quit(); 
wcenters(wrow, attrl ”); 
wprints(wrow,0,attr2,"  "); 

I 
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y*********************************************^************************^/ 

/*  This  routine  causes  short  dealys  during  execution  */ 

y*************************** ********************* *****> *****************/ 

static  void  short_delay(void) 

I 

del  ay_(SHORT_DEL  A  Y); 

) 

f*  ********************* ****************************************** ******^ 

/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  [QJuit  menu  items.  */ 

^*  *********************************************************************/ 
static  void  quit_window(void) 

I 

static  WINDOW  handle=0; 

if(handle)  ( 
wactiv(handle); 
wclose(); 
handle=0; 

\ 

\ 

else  ( 

handle=wopen(  1 4,4 1 , 1 7 ,70,0,YELLOWI_RED,WHITEI_RED); 
wputs("  Quit  takes  you  back  to  theVi  demo  program's  main  menu."); 

} 

I 

/*  *********************************** **********************************/ 
/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

static  void  restore_cursor(void) 

( 

wtextattr(WHITEI_MAGENTA); 

showcurQ; 


* 
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/*  enlarges  or  shrinks  the  windows  */ 

/*******%*******%*%*+**+**%*****%+***%**++%%+***%**+++%****++%+*%+%+*+*/ 
static  void  size  window(int  nerow.int  necol) 

( 

wsize(nerow  .necol ); 
short  delayO; 

} 


/*****%*+*%******************%********************%**+*+*****++*+****** 

/ *  moves  the  active  window  to  a  given  screen  coordinates  */ 

static  void  move  window! int  nsrow.int  nscol) 

I 

if(wmove(nsrow. nscol))  error  exit(  1 ); 
shot1_delav( ): 


/*  this  routine  calls  binary _trees()  routine  whenever  Pagetip  or  Pagedown  */ 

/*  keys  are  pressed.  */ 


void  Pl() 


wdoseallO; 
binary  _trees(); 


/* 

/*  this  routine  calls  definition  4 - - 1  routine  whenever  Pagetip  or 
/*  Pagedown  keys  are  pressed. 


*/ 

*/ 


Jit  *  +  *  *  +  * 

void  P2( ) 


/ 


wcloseall( ); 
definition  4  5  1(); 


1065 


y****;,*****************************************************************/ 

j*  this  routine  calls  ex_binary_l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************y/ 

void  P3() 

{ 

wcloseallO; 

ex_binary_l(); 

I 

^i**********************************************************************/ 

I*  this  routine  calls  ex_binary_2  routine  whenever  Pageup  or  */ 

I*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************/ 

void  P4( ) 

I 

wclosealh ); 
ex_binary_2( ); 

) 

/♦I*********************************************************************/ 

/*  this  routine  calls  ex_binarv_3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y'*  *********************************************************************/ 

void  P5( ) 


wcloseallO; 
ex  _binarv_3( ); 


/ 


********************************************************************** 


/ 


V 

*/ 


/*  this  routine  calls  preorder  routine  whenever  Pageup  or 
/*  Pagedown  keys  are  pressed. 

y**********************************************************************^ 

void  P6( ) 


wclosealh ); 
preorder(  J; 
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^*  **********  +  ***********************  +  *******  +  ***************  +  *******  +  **/ 
/*  this  routine  calls  ex_binary_4  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/****+**********************************%******C***********+********+***y 

void  P7() 


wclosealK); 

ex_binary_4( ); 

) 

/*  this  routine  calls  ex_binary_5  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y************************************************************* *********/ 

void  P8() 


wcloseall(); 

ex_binary_5(); 

) 

^**************%***%******************************************%******** 
/*  this  routine  calls  polish  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P9( ) 


wcloseall( ); 
polish( ); 

I 

/*  this  routine  calls  ex_binary_6  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P10() 


wclosealK); 
ex_binary_6( ); 
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I*  ***********  ****************************************** ****************/ 

/*  this  routine  calls  postorder  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/* *************** ******** ********************  *************************/ 

void  Pll(.) 

I 

wuoseall(); 

postorder(); 


/***********  *****  *************  *******  ****************************** ****^ 

/*  this  routine  calls  ex_binary_7  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 


void  P12() 

{ 

wcloseall(); 

ex_binary_7(); 


/**********>f**********************************************************jty 

/*  this  routine  calls  ex_binary_8  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**************************************************************+******>ty 

void  P13() 


wcloseall(); 

ex_binary_8(); 

) 

y**********************************************************************^ 

/*  this  routine  calls  Lnorder  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

yf**********************************************************************^ 

void  PI4() 

{ 

wcloseall(); 

inorderO; 
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/*#********************************************************************/ 
/*  this  routine  calls  ex_binary_9  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  *1 

^*  ****************** ********************************** *****************/ 
void  P15() 

I 


wcloseall(); 

ex_binary_9(); 

) 

^**********************************************************************^ 
/*  this  routine  calls  ex_binary_10  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P16() 


wcloseall(); 

ex_bitiary_10(); 

i 

/**********************************************************************/ 
/*  this  routine  calls  exercises  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

**jf<*****************jfc4:jf<****4:********)|c*;fc*)k**%*jf<*>lc  +  **  +  >l<*  +  ***********:**jfy 

void  P!7() 


wcloseall(); 

exercises!); 

) 

^**********************************************************************yf 

/*  this  routine  calls  exerl  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/> 
void  P 1 80 


wcloseallO; 

exerl(); 
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/*  this  routine  calls  exer2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P19() 

I 

wcloseallO; 

exer2(); 

) 

/*  this  routine  calls  exer3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/********************************-**************************************/ 
void  P20() 

( 

wcloseallO; 

exer3(); 

) 

/*  this  routine  calls  exer4  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 
void  P21() 

I 

wcloseall(); 

exer4(); 


/’fr*********************************************************************^ 

/*  this  routine  calls  exer5  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/★I*********************************************************************/ 

void  P22() 

I 

wcloseallO; 

exer5(); 

) 
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/ft*********************************************************************/ 

/*  tliis  routine  calls  exer6  routine  wlienever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P23() 


wcloseall(); 

exer6(); 


^★fc^*******************************************************************/ 

/*  this  routine  calls  exer7  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/l**********************************************************************^ 

void  P24() 

( 

wcloseallO; 

exer7(); 

) 

/**********+***********************************************************/ 
/*  this  routine  calls  exer8  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/♦I*********************************************************************/ 

void  P25() 

I 


wcloseallO; 

exer8(); 


/**********************************************************************/ 


/*  this  routine  calls  exer9  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/***%*********%*****%***********%****  ^jf'*******************************^ 


void  P26() 


wcloseallO; 

exer9(); 

I 
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/I**********************************************************************/ 

/*  this  routine  calls  exerlO  routine  whenever  Pageup  or  */ 

/ *  Pagedown  keys  are  pressed.  */ 

************************************ ***************^***** *********** ^ 

void  P27() 

I 

wcloseallO; 

exerl  00; 

} 

^♦♦♦fr******************************************************************! 

/*  this  routine  calls  exerl  1  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 


/ 
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void  P28() 

{ 

wcloseallO; 
exerl  1(); 

1 

j*** *******************************************************************  j 

/*  this  routine  calls  exerl 2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 

void  P29() 


wcloseallO; 
exerl  2(); 

} 

/+***************>t<**************l|<*!t<******>!<***  +  ******s|<*i|<**!|<****j|<:(e!|<**>t<>|ej(<s|y 

/*  this  routine  calls  expression  routine  whenever  Pageup  or  */ 

I*  Pagedown  keys  are  pressed.  */ 

y**********************************************************************/ 

void  P300 

( 

wcloseallO; 

expression!); 

) 
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/******>M******************* *******************************************/ 

/*  main  routine  calls  minimal  spanning  tree  tutorial  */ 

/+*++*******+******+**********+*+++*++***+***++*+*******+*++*+**++**+++/ 
void  main() 


initialize!); 
binary  _trees(); 

) 


/*  This  routine  calls  definition,  example  and  algorithm  routines  about  */ 

/*  binary  trees.  */ 

static  void  binary _trees(void) 

I 

cclrscm(LGREYI_BLUE); 


/******************************************* *************************/ 
/*  attach  [Pagedown]  to  the  definition_4_5_l()  function  */ 

setonkey(0x5100,P2,0); 

y********************************************************************/ 

if((w  1 1  ]=wopen(5 , 1 5 , 1 1 ,65 ,3  ,LCYANI_GREEN,BLACKI_MAGENTA))==0) 
error_exit(l); 


wtitle("lBinary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTTTLE); 

wputsw("  In  previous  examples  and  applications  of  rooted  trees  " 

"  we  need  not  distinguish  between  the  children  of  a  parent.  " 

"  However  there  are  many  situations  where  we  need  this" 
distinction."); 
press_a_key(4); 
wslide(l,l); 

y******************************************************************** 


if((w[2J=wopen(5, 15, 15,65 ,3  ,LC  Y  ANI_GREEN  3  LACK!_LGREY))==0) 
error_exit(l); 

wtitleflBinary  Trees]",TCENTER,_LGREYIBROWN); 
add_shadow( ); 
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whelpcat(H_WINTITLE); 

wputsw("  Consider  A/B.  In  this  particular  case  the  order  of  A  and  B" 
"  is  important.  Thus  if  we  represent  A/B  by  a  rooted  tree  in" 

"  which  the  root  represents  the  operation  (/)  and  the  children" 
"  represent  the  operants  (A  and  B),  then  the  order  of  the" 

"  children  is  important."); 


wputs(”\n"); 

wputswf"  This  is  why  we  need  binary  trees  to  be  able  to  work  with" 
"  this  kind  of  situations."); 
press_a_key(8); 
wslide(l(M); 


shoit_delay(); 

definition_4_5_l(); 


^t*******************  **********  ******  **********************************/ 

/*  This  routine  gives  the  definition  of  a  binary  tree  and  concepts  related  */ 

/*  with  binary  trees.  */ 

/*****************************+***+*********+**+*****+*****************/ 
static  void  definition_4_5_l(void) 

( 

/*  attach  [Pageupl  to  the  binary _trees()  function  */ 
setonkey(0x4900,Pl,0); 


/*  attach  [Pagedown]  to  the  ex_binary_l()  function  */ 

setonkey(0x5100,P3,0); 

if((w[3]=wopen(8,20,12,60,3,LCYANLGREEN3LACKLRED))==0) 
error_exit(  1 ); 

wtitle("(B inary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs(”\n  Wliat  is  a  binary  tree  ?"); 

press_a_key(2); 
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wclosea!l(); 

short_delay(); 

^*  ************** ********************************************  **********/ 
if((w[4]=wopen(5, 15,1 7,65,3,LCYANI_GREEN3LACKI_LGREY))=0) 
error_exit(l); 

wtitle(" [Definition  -  Binary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTTTLE); 

wputsw("  A  binary  tree  is  a  rooted  tree  in  which  each  vertex  has  at  " 

"  most  two  children  and  each  child  is  designated  as  being" 

"  a  left  child  or  a  right  child."); 
wputs("\n"); 

wputsw("  The  left  subtree  of  a  vertex  V  in  a  binary  tree  is  the  " 

"  graph  fonned  by  the  left  child  of  V,  the  descendants  of  L," 

"  and  the  edges  connecting  these  vertices.  "); 
wputs("\n"); 

wputsw("  Tlie  right  subtree  of  a  vertex  V  in  a  binary  tree  is  " 

"  defined  in  the  same  manner.  "); 
press_a_key(10); 
short_delay(); 
wclose(); 
ex_binary_l(); 
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/***************************************  ******  ******  ♦■ft*****************/ 

/*  This  routine  gives  an  example  for  a  typical  binary  tree  */ 


static  void  ex_binary_l  (void) 

I 

y************************#*******************************************^ 

/*  attach  [Pageup]  to  the  definition_4_5_l()  function  */ 
setonkey(0x4900,P2,0); 

y************************************************#******************^ 

/*  attach  [Pagedown]  to  the  expression()  function  */ 

setonkey(0x5 100,P30,0); 

y*  *********************♦**  +  *  **  +  +  j|<#****  +  **j|c*:f<**  +  *********  +  *i|t**********y 

if((  w[5  ]=wopen(8 ,20, 1 3 ,60,3  ,LC  Y  ANI_GREEN  ,REDI_B  LACK))==0) 
error_exit(l); 

\vtitle(" [Binary  Trees  -Example  l]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpc  at(H_WINTITLE) ; 

wputs("\n  To  see  an  example  "); 

press_a_key(3); 

short_delay(); 

wcloseallO; 

y*******************************************************************:^ 


spawnl(P_W  AIT, "exbl  .exe", NULL); 
cclrscm(LGREY  l_BLU  E); 
expression(); 

} 
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/**************************  **********%***********%%***************9k***Jty 

/*  This  routine  tells  about  expression  trees  */ 

^*  *********************************************************************/' 
static  void  expression! void) 

( 

/*************************! (>******************************************/ 

/*  attach  [PageUp]  to  the  ex_binary_l()  function  */ 
setonkey(0x4900,P3 ,0); 

/***************************+***********+********+***********++**+***/ 
/*  attach  [Pagedown]  to  the  ex_binary_2()  function  */ 

setonkey(0x5 1 00,P4,0); 

/i********************************************************************^ 

if((w[6]=wopen(5,15,13,54,3,WHITEI_RED,BLACKI_LGREY))=0) 
error_exit(  1 ); 

wtitle(" [Binary  T rees] " .TCENTER ,_LGREY IBRO WN); 

add_shadow(); 

whelpcat(  H_W1NTITLE ) ; 

wputsw("  There  are  many  applications  of  binary  trees  in  computer" 

"  science.  Such  as  repesenting  ways  to  organize  data  and" 

"  describe  data.  One  peculiar  application  is  known  as" 

"  ’expression  tree’.  "); 
press_a_key(6); 
wslide(0,0); 

if((w[7]=wopen(12,l,20,39,3,RED!_BLACK,WHITELBLUE))==0)  error_exit(l); 

wtitle("[BmaryTrees]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpc  at(  H_WINTITLE ) ; 

wputsw("  An  expression  tree  is  a  binary  tree  which  is  used  for  " 

representing  arithmetic  expressions.  In  this  binary  tree  " 
operations  are  represented  as  internal  vertices  and  the  " 
operands  as  tenninal  vertices."); 
press_a_key(6); 
wslide(0,40); 
sliort_delay(); 
ex_binary_2( ); 
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/**+*************+***+**************+******++************************+*/ 
/*  This  routine  gives  an  example  for  an  expression  tree  */ 

/****%**************%*************************%%*******%**************4y 

static  void  ex_binary_2  (void) 

( 


/*******************  I*.************************************************/ 

I*  attach  [Pageup]  to  the  expression()  function  */ 
setonkey(0x4900,P30,0); 

/★♦if****************************************************** ***********/ 

/*  attach  [Pagedown]  to  the  ex_binary_3()  function  */ 

setonkey(0x5 1 00, P5 ,0); 


/ 


/ 


if((w[8]=wopen(12,20,17,60,3,LCYANI_GREEN,REDLBLACK))==0) 
error_exit(  1 ); 

wtitle("[Binary  Trees  -  Example  2]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputs(”Vi  How  about  an  example  ?  "); 

press_a_key(3); 

siiurt_delay(); 

wcloseallO; 


/********************************************************************/ 
spawnl(P_W  ATT, "exb2.exe", NULL); 
cclrscm(LGREYI_BLUE); 
ex  _b  inary  _3(); 

) 
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1+  ************************************* ********************************/ 
/*  This  routine  gives  a  somewhat  complicated  example  for  an  expression  tree  */ 

y********************** ************************************** **********/ 


static  void  ex_binary_3  (void) 


^********************************************************************^ 


/*  attach  [Pageup]  to  the  ex_binary_2()  function  */ 
setonkey(0x4900,P4,0); 

/*  attach  [Pagedown]  to  the  preorder()  function  */ 

setonkey  (0x5 1 00,P6,0) ; 

I* *******************************************************************/ 

if((  w[9]=wopen(  1 2,20, 1 7,60,3  ,LC  YANI_GREEN,REDI_BLACK))==0) 
eiTor_exit(  1 ); 

wtitle( "[Binary  Trees  -  Example  3]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputs(”\n  How  about  a  more  complicated  example  ?"); 

press_a_key(3); 

short_delay(); 

wslide(5,20); 

if((w[9]=wopen(12,20,18,60,3,LCYANLBLACK3LACKLRED))=0) 
error_exit(  1 ); 

wtitle("[Binary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINnTLE); 

wputs('Vi"); 

wputsw("  How  would  you  represent  the  following  expression  as  a" 

"  binary  tree  ?"); 

wputs('Vi(((6  -  5)  *  2)  +  7)  /((5  -  1)  *  4  +  8)"); 

press_a_key(4); 

short_delay(); 

wcloseall(); 

spawnl(P_W  ATT, "exb3.exe", NULL); 

cclrscm(LGREYLBLUE); 

preorder(); 
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/*  This  routine  teaches  the  preorder  traversal  in  binary  trees  */ 


static  void  preorder(void) 

( 

/*********************%**********************************************/ 
/*  attach  IPageup]  to  the  ex_binary_3()  function  */ 

setonkey  (0x4900, P5,0 ); 

/*  attach  [Pdgedown]  to  the  ex_binary_4()  function  */ 
setonkey(0x5100,P7,0); 

y'******************************#**#**********************************^ 

if((w[l]=wopen(5,15,15,54,3,LCYANI_GREEN,BLACKI_LGREY))==0) 
error_exit(l ); 

wtitle("[Binary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputsw("  So  far,  we  have  shown  you  how  an  arithmetic  expression" 

"  can  be  represented  by  an  expression  tree.  It’s  okay,  but" 

"  we  somehow  need  to  process  the  expression  tree  to  obtain" 

"  the  original  expression.”); 
press_a_key(8); 
wslide(0,0); 
shoil_delay(); 

if((w[2J=wopen(5 ,15, 1 5,54,3  ,LCYANI_GREEN, WHITELB  LACK  ))==0) 
error_exit(  1 ); 

wtitle("[Binary  Trees]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputswt"  We  need  a  systematic  way  to  look  at  each  vertex  in  the  " 

"  expression  tree  exactly  once.  Processing  the  data  at  a  ” 

"  vertex  is  usually  called  'visiting  a  vertex’,  and  a  search" 

"  proceduie  that  visits  each  vertex  of  a  graph  exactly  once  " 

"  is  called  a  ’traversal’  of  a  graph. "); 
press_a_key(  8 ); 
wslide(0,39); 
short  delayt ); 
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if((w[3]=wopen(5 ,15,1 9,54,3  ,LCYANI_GREEN,WHITEI_RED))=0) 
error_exit(  1 ); 

wtitle("[Preorder  Traversal]", TCENTER,_LGREYtBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  One  traversal  method  is  known  as  Preorder  Traversal." 

"  This  method  is  simply  a  depth-first  search  to  a  binary" 

"  tree  starting  at  the  root  and  always  choosing  a  left  " 

"  child  of  a  vertex  when  there  is  a  choise.  We  consider" 

"  a  vertex  visited  when  it  is  labeled,  and  keep  a  list" 

"  of  the  vertices  in  the  order  visited.  This  list  is" 

"  called  a  preorder  listing.  Actual  algorithm  is  as" 

"  follows."); 
press_a_key(12); 
wslide(l  1,0); 
short_delay(); 

if((w[4]=wopen(5,15,19,54,3,LCYANI_GREEN,BLACKI_CYAN))==0) 

eiTor_exit(l); 

wtitlef [Preorder  Traversal]",TCENTER,_LGREYIBROWN); 
add_shadow( ); 
whelpcat(H_WIN  TITLE); 

wputsw("  The  following  algorithm  is  a  recursive  formulation  of' 

"  the  preorder  traversal,  which  means  that  in  this  description" 

"  the  algorithm  refers  itself."); 
wputs('Vi"); 

wputs("  Step  1  (visit)  Visit  the  root.Xn"); 

wputsw("  Step  2  (go  left)  Go  to  the  left  subtree,  if  one  exists," 

"  do  a  preorder  traversal."); 
wputs('Vi"); 

wputsw(”  Step  3  (go  right)  Go  to  the  right  subtree,  if  one  exists," 

"  and  do  a  preorder  traversal."); 
press_a_key(  12); 
wslide(l  1,39); 
short_delay(); 
ex_binary_4( ); 

} 
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^************* *********************************************************  ^ 
/*  This  routine  gives  a  preorder  traversal  of  a  binary  tree  */ 

/******************************************************************+***/ 

static  void  ex_binary_4  (void) 

< 

^************************************  i,  ****************  ^,**********4,*4,4,^ 


/*  attach  [Pageup]  to  the  preorder()  function  *f 

setonkey(0x4900,P6,0); 

/********************************************************************/ 
/*  attach  [Pagedown]  to  the  ex_binary_5()  function  */ 
setonkey(0x5 100,P8,0); 

/********************************************************************/ 

if((w[5]=wopen(8,20,13,60,3,LCYAN!_GREEN4lEDI_BLACK^==0) 

errorexit(l); 


wtitle("[ Preorder  Traversal  -  Example  4]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTTTLE); 

wputs('V  How  about  an  example  ?  "); 

press_a_key(3); 

shortdelayO; 

wcloseallO; 


spawnl(P_WAJT,"exb4.exe",NULL); 

cclrscm(LGREYLBLUE); 

ex_binary_5(); 

} 
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/*  +  *************  +  *********  +  ****  +  +  +  *  +  *  +  ****  +  +  *  +  +  +  **  +  *****>4>***  +  ***  +  *  +  **  +  >iy 

/*  This  routine  gives  a  preorder  traversal  of  a  binary  tree  */ 

/♦I*********************************************************************/ 

static  void  ex_binary_5  (void) 

( 

/*  attach  [Pageup]  to  the  ex_binary_4()  function  */ 

setonkey  (0x4900 ,P7 ,0) ; 

/ft*******************************************************************/ 

/*  attach  [Pagedown]  to  the  polish()  function  */ 
setonkey  (0x5 1 00,P9,0); 

/********+**+**+*********+*+***++****+***+**+*****+*****+*+*****+**+*/ 

if((w[6]=wopen(8,20,13,60,3,LCYANI_GREEN,REDI_BLACK))==0) 

error_exit(l); 

wtitle(”[Preorder  Traversal  -  Example  5]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputs('Vi  One  more  example  ?  "); 

press_a_key(3); 

short_delay(); 

wclose(); 

spawnl(P_WAIT,"exb5.exe",NULL); 

cclrscm(LGREYI_BLUE); 

polish(); 
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^♦fr********************************************************************/ 

/*  This  routine  introduces  prefix  form  (  Polish  notation  )  */ 

/*************************************************** ***************+***/ 
static  void  polish(void) 

I 


/*  attach  [Pageup]  to  the  ex_binary_5()  function  */ 

setonkey(0x4900,P8,0); 


/*  attach  [Pagedown]  to  the  ex_binary_6()  function  */ 
setonkey  (0x5 1 00, P 1 0,0); 

/*%******************************************************************/ 


if((  w[  1  ]=wopen(5 ,15,1 4,56,3  ,LCYANI_GREEN  ,B  LACKI_LGREY»=0) 
error_exit(l); 

wtitle( "  l  Polish  N  otation] "  ,TCENTER,_LGREY  IBRO  WN ); 

add_shadow(); 

whelpcat(HWlNTITLE); 

wputsw("  When  a  preorder  traversal  is  applied  on  an  expression” 

"  tree,  the  resulting  listing  of  operations  and  operands  is” 

"  called  prefix  form  or  Polish  notation  for  the  expression." 

"  (the  later  name  is  used  in  honor  of  the  famous  Polish" 

"  logician  Lukasiewicz.)"); 
press_a_key(7 ); 
wslide(0,0); 
short_delay(); 

y********************************************************************/ 

if((w[2]=wopen(5, 1 5, 1 7,53 ,3,LCYANI_GREEN,WHITELBLACK))==0) 
error_exit(  1 ); 


wtitle("[Polish  Notation]”, TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINnTLE); 

wputsw("  An  expression  in  Polish  notation  is  evaluated  according" 

"  to  the  following  rule  :  Scan  from  left  to  right  until  coming" 
"  to  an  operation  sign,  say  T,  that  is  followed  by  by  two  " 

"  successive  numbers,  say  a  and  b.  Evaluate  Tab  as  aTb,  and" 
"  replace  Tab  by  this  value  in  the  expression.  Repeat  this" 
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"  process  until  the  entire  expression  is  evaluated."); 
press_a_key(10); 
wslide(0,39); 
short_delay(); 
ex_binary_6(); 

} 

^*  **********************************>* <**********************************/ 
/*  This  routine  gives  an  example  on  Polish  notation  of  an  expression  */ 

^******** ********** ****************************************************/ 
static  void  ex_binary_6  (void) 

( 

/*********** ******************************************************** *j 


/*  attach  [Pageup]  to  the  polish()  function  */ 

setonkey(0x4900,P9,0); 

^************************ ****************** **************************/ 
/*  attach  [Pagedown]  to  the  postorderQ  function  */ 
setonkey(0x5100,Pl  1,0); 

^******* ******************************* ******************************y 


if((w[3]=wopen(12,12,22,63,3,LCYANIJBLACK,BLACKI_RED))=0) 

errorjexit(l); 

wtitle(" [Polish  Notation  -  Example  6]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(  H_WINTfi'LE); 

wputs(”\n  Do  you  remember  the  following  expression  ?"); 

wputs("Vi  (((6  -  3)  *  2)  +  7)  /  ((5  - 1)  *  4  +  8)\nV); 

wputsw("  Now  let’s  see  how  we  represent  dais  expression  in  Polish” 

"  notation  and  then  we  will  show  you  the  application  of  the" 

"  rule  for  evaluating  this  the  expression  written  in  this" 

"  notation"); 
press_ajkey(8 ); 
short_delay(); 
wcloseallO; 

spawnl(P_W  AIT, "exb6.exe", NULL); 

cclrscm(LGREYLBLUE); 

postorder(); 

} 
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y* ***************************** ****************************************y 

/*  Tliis  routine  teaches  the  postorder  traversal  in  binary  trees  */ 

y**********************************************************************y 

static  void  postorder(void) 


y********************************************************************y 

/*  attach  [Pageup]  to  the  ex_binary_6()  function  */ 

setonkey(0x4900,P10,0); 

y****************** ************************************* *************y 

/*  attach  [Pagedown]  to  the  ex_binary_7()  function  */ 
setonkey(0x5 1 00,P  1 2,0); 

y** ************************************************* *****************y 


if((w[l]=wopen(5, 13,13, 56, 3,LCYANI_GREEN,BLACKI_LGREY))==0) 
error_exit(  1 ); 

wtitle("[Binary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  The  Polisli  notation  for  an  expression  provides  an  unambiguous" 

"  way  to  write  it  without  the  use  of  paranthesis  or  conventions" 

"  about  the  order  of  operations.  Many  computers  are  designed  to" 

"  rewrite  expression  in  this  form."); 
press_a_key(6); 
wclose(); 
short_delay(); 

y********************************************************************y 


if((w[2]=wopen(5 , 1 5 , 1 5 ,54,3  ,LC  Y  ANI_GREEN ,  WHITEI_B  LACK))==0) 
error_exit(  1 ); 

wtitle("lBinary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  Second  traversal  method  that  we  are  about  to  examine" 

"  is  known  as  reverse  Polish  notation  or  postfix  form." 

"  This  method  is  also  introduced  by  Lukasiewicz.  Unlike" 

"  Polish  notation,  in  this  method  the  operation  sign" 

"  follows  the  operands."); 
press_a_key(8); 
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wslide(0,0); 

short_delay(); 

/♦★if:*****************************************************************/ 

if((w[3  J=wopen(5 .15, 1 9,54,3  ,LCY  ANI_GREEN  ,WHITELRED))=0) 
error_exit(l); 

wtitle("[Postorder  Traversal]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  Reverse  Polish  notation  for  the  last  expression  that  we" 

"  examined"); 

wputs("\n(((6  -  3)  *  2)  +  7)  /  (((5  -  1)  *  4)  +  8)\n"); 

wputs("\n  is’6  3-2*7  +  51-4*8  +  /’NnNn"); 

wputsw("  Again  as  you  see  we  did  not  use  paranthesis  that  is  we" 

"  don’t  worry  about  the  order  of  the  expressions.  Thus  reverse" 

"  Polish  is  an  efficient  method  for  use  in  computers.  "); 
press_a_key(12); 
wslide(ll,0); 
short_delay(); 

/********************************************************************/ 
if((w[4]=wopen(5, 15, 13,54,3, LCYANLGREEN,WHITELBLACK))=0) 
error_exit(  1 ); 

wtitle("[Postorder  Traversal]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  How  can  the  reverse  Polish  notation  for  an  expression" 

"  be  obtained  from  an  expression  tree  ?"); 
wputs('Vf); 

wputswt,"  We  bet  you  are  asking  this  question  now.  Here  how" 

"  it  is  ..."); 
press_a_key(6); 
wslide(0,39); 
short_delay(); 

/********************************************************************/ 
if((w[5]=wopen(5 , 1 5, 1 8,54,3,LCY  ANI_GREEN,BLACKI_CY  AN))=0) 
error_exit(  1 ); 

wtitle( " l Postorder  Traversal J" ,TCENTER ,_LGREYIBROWN ); 
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add_shadow(); 

whelpcat(HWINTITLE); 

wputsw("  The  following  algorithm  is  a  recursive  formulation  of’ 

"  the  postorder  traversal"); 
wputs('V'); 

wputsw("  Step  1  (go  left)  Go  to  the  left  subtree,  if  one  exists," 

"  do  a  postorder  traversal."); 
wputs("\n"); 

wputsw(”  Step  2  (go  right)  Go  to  the  right  subtree,  if  one  exists," 
"  and  do  a  postorder  traversal."); 
wputs('Vi  Step  3  (visit)  Visit  the  root.W); 
press_a_key(12); 
wslide(l  1,39); 
short__delay(); 
ex_binary_7(); 

} 


/**********************************************************************/ 
/*  This  routine  gives  a  postorder  traversal  of  a  binary  tree  */ 

/**********************************************************************/ 
static  void  ex_binary_7  (void) 

{ 


/*  attach  | Pageup]  to  the  postorder()  function  */ 

setonkey(0x4900,P  1 1 ,0); 


/*  attach  [Pagedown]  to  the  ex_binary_8()  function  */ 
setonkey(0x5100,P13,0); 


^**>('**J(l***l(t*>(<**J(tJ(tl(t>(t*******  +  %*l(t***********  +  *****J(<  +  J|<>(<***  +  *****J(<*******>|c^ 


if((w[6]=wopen(8,18,13,62,3,LCYANI_GRE£N,REDI_BLACK))==0)  er- 

ror_exit(  1 ); 

wtitle("[Postorder  Traversal-  Example  7]",TCENTER,_LGREYtBROWN); 

add_shadow(); 

whelpcat(  H_WINTITLE ) ; 

wputs("Vi  We  need  an  example,  don’t  you  think  so  ?  "); 
press_a_key(3 ); 
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short_delay(); 

wcloseall(); 

spawnl(P_WAn\"exb7.exe",NULL); 

cclrscm(LGREYI_BLUE); 

ex_bmary_8(); 

} 


/**********************************************************************/ 
/*  This  routine  gives  a  postorder  traversal  of  a  binary  tree  */ 

/**********************************************************************/ 
static  void  ex_binary_8  (void) 

I 


/********************************************************************/ 
/*  attach  [Pageup]  to  the  ex_binary_7()  function  */ 

setonkev  (0x4900,  PI  2.0); 

^T********************************************************************^ 

/*  anach  [Pagedown]  to  the  inorder()  function  */ 
setonkey(0x5100,P14,0); 

/********************************************** **********************^ 
if((w[7]=wopen(8,20,13,60,3,LCYANI_GREEN,REDI_BLACK))— 0)  er- 

ror_exit(  1 ); 


wtitle(" [Postorder  traversal  -  Example  8]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINT[TLE); 

wputs("\n  One  more  example  ?  "); 

press_a_key(3 ); 

short_delay(); 

wclose(); 


spawnl(P_W  AIT, "exb8.exe", NULL); 

cclrscm(LGREYI_BLUE); 

inorde*-(); 
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/c**********************************************************************/ 

/*  This  routine  teaches  the  inorder  traversal  in  binary  trees  */ 

y*  I*********************************************************************/ 

static  void  inorder(void) 


I 


^i********************************************************************/ 

/*  attach  [Pageup]  to  the  ex_binary_8()  function  */ 

setonkey  (0x4900, P 1 3 ,0) ; 

/*  attach  [Pagedown]  to  the  ex_binary_9()  function  */ 
setonkey(0x5I00,P15,0); 

^* *******************************************************************/ 
if((  w[  1  ]=wopen(5 , 1 5 , 14,54,3  ,LC  Y  ANI_GREEN  3  LACKI_RED))=0) 
error_exit(l); 

wtitle(" [Binary  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputsw("  We  have  seen  how  expression  trees  are  converted" 

"  into  Polish  and  reverse  Polish  notations  for  an" 

"  expression.  In  these  notations  the  operation  sign" 

"  precedes  or  follows  the  operands,  respectively."); 
press_ajkey(7); 
wslide(0,0); 
short_delay(); 


if((w[2]=wopen(5,15,14,54,3,LCYANI_GREEN,WHITELBLACK))==0) 
error_exit(  1 ); 

wtitle("[Binary  Trees]", TCENTER,_LGRJEYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputsw("  Make  a  guess,  where  else  can  we  put  operation" 

"  sign.  The  answer  should  be  so  difficult,  because" 

"  there  is  only  one  place  left,  that  is  ,  the  operation" 

"  sign  can  be  in  between  two  operants.  This  type  is  the" 

"  one  we  accustomed  to  see. "); 
press_a_key(7 ); 
wslide(0,39); 
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short_delay(); 

/*************************************************+*+****************/ 
if((w[3]=wopen(5, 1 5 ,14,54,3  ,LCY  ANI_GREEN  ,REDI_BLACK))=0) 


error_exit(l); 

wtitle("[Inorder  Travers  al]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  With  the  use  of  the  inorder  traversal  it  is  possible" 

"  to  obtain  an  expression  with  the  operation  sign  between" 

"  the  operands.  However,  this  traversal  requires  the" 

"  careful  insertion  of  paranthesis  in  order  to  evaluate" 

"  the  expression  properly."); 
press_a_key(7); 
wslide(10,0); 
short_delay(); 

/********************************************************************/ 
if((w[4J=wopen(5 ,15,1 9,54,3  ,LCYANI_GREEN,B  LACKI_CY  AN))==0) 
error_exit(l); 

wtitle("[Inorder  Travers  al]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  The  Inorder  Traversal  is  characterized  by  visiting  a" 

"  left  child  before  the  parent  and  a  right  child  after" 

"  the  parent.  The  following  algorithm  shows  the  systematic" 

"  way  to  do  this."); 
wputs('V'); 

wputsw("  Step  1  (go  left)  Go  to  the  left  subtree,  if  one  exists," 

"  do  an  inorder  traversal."); 
wputs("Vi  Step  2  (visit)  Visit  the  root.Nn"); 
wputsw("  Step  3  (go  right)  Go  to  the  right  subtree,  if  one  exists," 

"  and  do  an  inorder  traversal."); 
press_a_key(13); 
wslide(  10,39); 
short_delay(); 
ex_binary_9(); 
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/*******************************★**************************************/ 
/*  This  routine  gives  an  inorder  traversal  of  a  binary  tree  */ 

**************************************★********★*******************★*/ 


static  void  ex_binary_9  (void) 

I 


/a*******************************************************************/ 

/*  attach  [Pageup]  to  the  inorder()  function  */ 

setonkey(0x4900,P  14,0); 

/**************%*  ******%*******%***%***********  rfrilt********************/ 


/*  attach  [Pagedown]  to  the  ex_binary_10()  function  */ 
setonkey  (0x5 1 00, P 1 6,0); 

I********************************************************************/ 


if((  w[5]=wopen(8 ,18,13 ,62,3  ,LCYANI_GREEN,REDI_B  LACK))=0) 
error_exit(  1 ); 

wtitle("[Inorder  Traversal  -  Example  9]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTl'l  LE); 

wputs("\n  Let’ see  an  example...  "); 

press_a_key(3); 

short_delay(); 

wdoseallO; 

spawnl(P_W  AIT, "exb9.exe"  JNULL); 

ccIrscm(LGREYIBLUE); 

ex_binary_10(); 
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/fc^********************************************************************/ 

/*  This  routine  gives  an  inorder  traversal  of  a  binary  tree  */ 

y**********************************************************************/ 

static  void  ex_binary_10  (void) 

I 

/********************************************************************/ 
/*  attach  [Fageup]  to  the  ex_binary_9()  function  */ 

setonkey(0x4900,P  1 5 ,0); 

/********************************************************************/ 
/*  attach  [Pagedown]  to  the  exercises()  function  */ 
setonkey(0x5 1 00, P 1 7 ,0) ; 

y********************************************************************^ 

if((w[6]=wopen(8,20,13,60,3,LCYANI_GREEN>REDLBLACK))=0) 

error_exit(l); 

wtitle("[lnorder  Traversal  -  Example  10]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTITLE); 

wputs("\n  One  more  example  ?  "); 

press_a_key(3); 

short_delay(); 

wclose(); 

spawnl(P_W  AIT,"exb  1 0.exe"  ,NULL); 

cclrscm(LGREYLBLUE); 

exercisesO; 
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/**********************************************************************y 

/*  This  routine  makes  a  small  quiz  about  the  binary  trees  and  travesais.  */ 

^*** ******** ********* * ************* **** ********************************^ 
void  exercises(void) 

( 

register  int  *screen; 


/*****************  *******  ********************************************/ 


/*  attach  [Pageup]  to  the  ex_binary_10()  function  */ 

setonkey(0x4900,P  1 6,0); 

/************************ ********* ****** *****************************^ 


/*  attach  [Pagedown]  to  the  exerl()  function  */ 
setonkey(0x5100,P18,0); 


if(.(  w[  1  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LCY  ANI_GREEN,WHITELRED  ))==0) 
error_exit(l); 

wtitle("[Binary  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNTITLE); 

add_shadow( ); 

wputs("Nn"); 

wputsw("  We  have  completed  our  presentation  of  this  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  "); 
press_a_key(3); 
short_delay(); 
wcIoseO; 

if((screen=ssave())==NULL)  error_exit(3); 
exerl(); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  { 
mssupport(MS_FULL); 
msgotoxyf  12,49); 

I 

/*  attach  lAlt-X]  to  the  confirm_quit()  function  */ 

setonkey(0x2d00,confinn_quit,0); 

srestore(screen); 


) 
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/**********************************************************************/ 
/*  Dummy  function  to  call  the  actual  exercise  4.5.1  */ 

/************************************************************ **********y 

static  void  exerl(void) 


/I******************************************************************** 

/*  attach  [Pageup]  to  the  ex_binary_10()  function  */ 

setonkev  (0x4900, P 1 6,0); 

^t******************************************************************* 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5100,P19,0); 

/******************************************************************** 
if((w[lj=wopen(5,15, 10,65,3  ,LCYANLGREEN,WHITELRED))==0) 
error_exit(l); 

wtitle("[Binary  Tiees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNT!TLE); 

add_shadow( ); 

wputs("\n"); 

wputsw("  Here  is  the  first  question.  "); 

press_a„key(3); 

wcloseO; 

spawnl(P_WATT,"q45 1  .exe"  ,NULL); 
cclrccm(LGREYI_BLUE); 
exer2( ); 
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/*  Dummy  function  to  call  the  actual  exercise  4.5.2  */ 

static  void  exer2(void) 

( 

^************^*******************************************************/ 


/*  attach  [Pageup]  to  the  exerl()  function  */ 

setonkey(0x4900,Pl  8,0); 

/* **  +  *♦*>(<*  +  *  fr******************************************************** 


/*  attach  [Pagedown]  to  the  exer3()  function  */ 
setonkey(0x5 1 00,P20,0); 

/*********: **************************************************** *******/ 


if((w[  1  ]=wopen(5 ,15,10,65 ,3  ,LC Y  ANI_GREEN,' WHITEI_RED))==0) 
error_exit(l ); 

wtitle("[Binary  Trees]",TCENTER,_LGREYIBROWN); 

whel  pcat(H_WI  NT  1TLE ) ; 

add_shadow(); 

wputs('Vi"); 

wputsw("  Here  is  the  second  question.  "); 

press_a_key(3 ); 

wclose(); 

spawnl(P_W  AIT, "q452.exe", NULL); 

cclrscm(LGREYIBLUE); 

exer3(); 


) 
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/************************* *********************************************/ 
/*  Dummy  function  to  call  ;he  actual  exercise  4.5.3  */ 

/*********************************************+******+***+++*****+*****/ 
static  void  exer3(void) 


/*  attach  [Pageup]  to  the  exer2()  function  */ 

setonkey(0x4900,P19,0); 

Z****************************** **************************************/ 


/*  attach  [Pagedown]  to  the  exer4()  function  */ 
setonkey(0x5100,P21,0); 


/**+************************************+****************+****+**+***/ 


if((  w[  1  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LC  Y  ANIJ3REEN,  WHITELRED))=0) 


error_exit(  1 ); 


w title( "  [B  inary  Trees] "  ,TCENTER  ,_LGRE Y IBRO WN); 

whelpcat(  H_WINTITLE ) ; 

add_shadow(); 

wputs("Vi"); 

wputsw("  Here  is  the  third  question.  "); 

press_a_key(3 ); 

wclose(); 

spawnl(P_W  ATT, "q453.exe"  ,NULL); 

cclrscm(LGREYI_BLUE); 

exer4(); 
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/I***********************#**********************************************/ 

/*  Dummy  function  to  call  the  actual  exercise  4.5.4  */ 

/****************************************************************v*****/ 

static  void  exer4(void) 

I 

/******************************************************************* 

/*  attach  [Pageup]  to  the  exer3()  function  */ 

setonkey(0x4900,P20,0); 

/************  +  ************  +  *********************;4<  +  **  +  **  +  +  **  +  +  **  +  *****/ 

/*  attach  [Pagedown]  to  the  exer5()  function  */ 
setonkey(0x5 1 00,P22,0); 

/*+******************************************************************/ 
if((  w  [  1  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LC  Y  ANI_GREEN ,  WHITELRED))==0) 
error_exit(  1 ); 

wtitle("[Binary  Trees]", TCENTER,_LGREYIBROWN), 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  forth  question.  "); 

press_a_key(3); 

wcloseO; 

spawnl(P_WAIT,"q454.exe",NULL); 

cclrscm(LGREYLBLUE); 

exer5(); 
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/**********************************************************************/ 
/*  Dummy  function  to  call  the  actual  exercise  4.5.5  */ 

^* *********************************************************************/• 


static  void  exer5(void) 


I 


I*********** ***************************************** ****************^ 

/*  attach  [Pageup]  to  the  exer4()  function  */ 

setonkey  (0x4900, P21 ,0); 

/********************************************************************/ 
/*  attach  [Pagedown]  to  the  exer6()  function  */ 
setonkey(0x5 100,P23,0); 

^********************************************************************y 


if((w[  1  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LC  Y  ANI_GREEN,  WHITEI_RED))=0) 
error_exit(l); 

wtitle("  [Binary  Trees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  fifth  question.  "); 

press_a_key(3 ); 

wclose(); 

spawnl(P_WAIT,"q455.exe",NULL); 

cclrscm(LGREYI_BLUE); 

exer6(); 


} 
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/*********************************************************★************/ 
/*  Dummy  function  to  call  the  actual  exercise  4.5.6  */ 

/**********************************************************************y 

static  void  exer6(void) 

I 


/*************************************** ***********************  Jr*****/ 

/*  attach  [Pageup]  to  the  exer5()  function  */ 

setonkey(0x4900,P22,0); 

/********************************************************************/ 
/*  attach  [Pagedown]  to  the  exer7()  function  */ 
setonkey(0x5 100,P24,0); 

^*******************************************************************4y 

if((w[  1  ]=wopen(5 , 1 5 , 1 0,65 ,3,LCYANI_GREEN,WHITELRED))==0) 


error_exit(l); 

wtitle(" [Binary  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  sixth  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_W  AIT, "q456.exe", NULL); 

cclrscm(LGREYLBLUE); 

exer7(); 


} 
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^* *********************************************************************/ 
/*  Dummy  function  to  call  the  actual  exercise  4.5.7  */ 

/♦fr********************************************************************/ 

static  void  exer7(void) 

I 

y'+  +  +  ***  +  ***  +  **  +  ****  +  *  +  +  >l'*  +  +  ***  +  +  +  *  +  *  +  +  >t<  +  4c  +  *>t<*  +  *  +  +  +  **  +  +  +  +  *  +  +  +  +  +  +  *  +  +  +  +4y 

/*  attach  [Pageup]  to  the  exer6()  function  */ 

setonkey(0x4900,P23 ,0); 

y********************************************************************/ 
/*  attach  [Pagedown]  to  the  exer8()  function  */ 
setonkey(0x5 1 00,P25,0); 

/* %*******#**********************%***********************************/ 
if((w[l]=wopen(5,15,10,65,3,LCYANLGREEN,WHITEI_RED))==0) 
error_exit(l); 

wtitle("[Binary  Trees]",TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNTITLE); 

add_shadow( ); 

wputs("Vi"); 

wputsw("  Here  is  the  seventh  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_W  AIT, "q457.exe", NULL); 

cclrscm(LGREYI_BLUE); 

exer8(); 


1101 


/*  Dummy  function  to  call  the  actual  exercise  4.5.8  */ 

/**********************************************************************/ 

siatk  ’  oiU  exer8(void) 


{ 


y********************************************************************/ 

/*  attach  [Pageup]  to  the  exer7()  function  */ 

setonkey(0x4900,P24,0); 

/ft**************************************!*****************************/ 

/*  attacli  [Pagedown]  to  the  exer9()  function  */ 
setonkey  (0x5 1 00,P26,0); 


if((w[  1  ]=wopen(5 ,15,1 0,65 ,3,LC  YANI_GREEN,WH1TEI_RED))=0) 
error_exit(l); 

wtitlef  [Binary  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputsC'Nn"); 

wputsw("  Here  is  the  eighth  question.  "); 

press_a_key(3 ); 

wclose(); 

spawnl(P_W  AIT, "q458.exe", NULL); 
cclrsc  m(  LG  REY  l_B  LU  E) ; 
exer9(); 

J 
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y************************#**************************************:*******/ 

/*  Dummy  function  to  call  the  actual  exercise  4.5.9  */ 

^****************4,*********************** ****************************** I 

static  void  cXca9(vok1) 

I 

I* ******************************************************************* ^ 

/*  attach  [Pageup]  to  the  exer8()  function  */ 

setonkey(0x4900,P25 ,0); 

^*** ***************************************************************** J 

/*  attach  [Pagedown]  to  the  exerl0()  function  */ 
setonkey(0x5 1 00,P27,0); 

/*****+******************************************************+*******/ 
if((w[l]=wopen(5, 15,10, 65,3, LCYANLGREEN,WHITELRED»==0) 
error_exit(l); 

wtitle("[Binary  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(  H_WINT1TLE) ; 

add_shadow(); 

wputs('V'); 

wputsw("  Here  is  the  nineth  question.  "); 

press_a_key(3); 

wcloseO; 

spawnl(P_WAIT,"q459.exe",NULL); 

cclrscm(LGREYI_BLUE); 

exerlOO; 
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/ft**************************************************************-*******/ 

/*  Dummy  function  to  call  the  actual  exercise  4.5.10  */ 

!> f*********************************************************************/ 

static  vuiJ  eierlO(void) 

( 

^+  +  *  +  +  **  +  +  *  +  *  +  +  ****  +  *  +  ***>(<j(<***  +  +  **  +  *  +  *  +  lf**+  +  *  +  +  +  +  +  +  **+  +  +  +  +  +  '*'  +  +  '*t  +  +  ltl!f  +  +^ 


/*  attach  [Pageup]  to  the  exer9()  function  */ 

setonkey(0x4900,P26,0); 

/*•***********************.******* ************************************ 
/*  attach  [Pagedown]  to  the  exerl  1()  function  */ 
setonkey(0x5 100,P28,0); 


/*************************************+************++**++*++***++**+*/ 


if((w[  1  J=wopen(5 ,  1 5 , 1 0,65 ,3,LCYANI_GREEN,WHITEI_RED))==0) 
error_exit(  1 ); 

wtitleOBinary  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  tenth  question.  "); 

press_a_key(3 ); 

wclose(); 


spawnl(P_WAIT,"q45 1 0.exe"  ,NULL); 

cclrscm(LGREYI_BLUE); 

exerl  1(); 

} 
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y**********************************************************************/ 

/*  Dummy  function  to  call  the  actual  exercise  4.5. 1 1  */ 

/**********************************************************************/ 

^»a«/4  oyar  1  1 

j  L  vii-i  W  *  WAWl  a  v  *  UiU  / 


I 


/***:«****************%**********************************************%/ 

/*  attach  [Pageup]  to  the  exerlOO  function  */ 

setonkey(0x4900,P27,0); 

y********************************************************************/ 

/*  attach  [Pagedown]  to  die  exerl2()  function  */ 
setonkey(0x5 100,P29,0); 

/♦I*******************************************************************/ 


if((w  [  1  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LC  Y  ANI_GREEN,  WHITEI_RED))==0) 
error_exit(l); 

wtidef  [Binary  Trees]",' TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNTITLE); 

add_shadow(); 

wputs("Vi"); 

wputsw("  Here  is  the  eleventh  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q45 1 1  ,exe",NULL); 

cclrscm(LGREYLBLUE); 

exerl2(); 


I 
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^*************  +  ******l(t*****!t>*************>t‘’t<‘l<*’(<*!|<1(<*‘l<>l<’t‘j|<lt<:(l‘(<'(<>(<l|<!|<*l|<**Jt<*lt<**+/ 

/*  Dummy  function  to  call  the  actual  exercise  4.5. 12  */ 

y**********************************************************************/ 

static  void  exerl2(void'» 

{ 


^*  ******************************************************************%/ 

/*  attach  [PageUp]  to  the  exerl  1()  function  */ 

setonkey(0x4900,P28,0); 

if((  w[  1  J=wopen(5 , 1 5 , 1 0,65 ,3  ,LC  Y  ANI_GREEN,WHITEI_RED)  )=0) 
error_exit(  1 ); 


wtitle("[Binary  Trees]"  ,TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  twelfth  question.  "); 

pre0s_3_key(3); 

wcloseO; 

spawnl(P_WAIT,"q45 1 2.exe"  .NULL); 

cclrscm(LGREYIBLUE); 

wclosealJ(); 

normal_exit(); 


) 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exbl.c 

:  Atilla  BAKAN 
:  Apr.  16,  1990 
:  Apr.  16,  1990 


DESCRIPTION  :  First  example  about  binary  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 


#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a; 

#define  ffblk  find_t 
#define  ff_name  name 

#el  if  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  graph  (void); 


/*************%*>|t**!(<****  +  **  +  **********1t<!f'1t<*!t<!t,**!|<!|<:(<!|*i<****!|<****>l<**>l«>l<**:<<**>ty 

/*  graphic  initialization  variables  */ 

/♦♦if*********************************#*********************************^ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


y*  *********************************************************************/ 

/*  This  fiinction  is  used  i  including  drivers  to  the  executable  code  */ 

^*  ******************:«»<*************************************************/ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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I*  ******************************************* **************************/ 

/*  This  friction  initializes  the  necessary  graphical  routines  */ 

/*****  +  +  ************************************-«>******>l<*******************/ 

static  void  init_graplKvoid) 

I 

int  xasp,  yasp; 


register_drivers( ) ; 
graphdriver  =  DETECT ; 

^t,*******************************  ******************  ******************/ 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

/********************************************************************/ 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

I 

^** ******************************************************** **********/ 


MaxX  =  getmaxxO; 
MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25; 

^*  *******************************************************************/ 


settext(); 

I*  **%*********♦******************************************************/ 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  | 
setfillstyle(SOLlD_FILL,  BLACK); 
backcolor  =  BLACK; 


else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 


forecolor  =  WHITE; 
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/Jr***************************************************************** t****/ 

/*  This  function  sets  the  text  default  values  */ 

^-k  *********************************************************************/ 

static  void  settext(void) 

I 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

) 


/**********************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 
void  Pause(i  j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j7’»PRESS  A  KEY  TO  CONTINUE«"y, 
if(waitkey()==ESC)  { 
closegraph(); 
videoinit(); 
exit(O); 

} 


j*  ************************************** *******************************/ 

/*  main  routine  calls  graphs  routine  */ 

*********************************************************************/ 

void  main() 

I 

graph(); 
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/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

/**********************************************************************/ 
void  graph(void) 

{ 

/********************************************************************/ 


init_graph(); 
setcolorf  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy  ( 38  *x  ,y/2 EXAMPLE  4-5-1"); 


pieslice(45*x,4*y,0,359,2);  /*  Parent  */ 
pieslice(35*x,7*y,0,359,2);  /*  Left  child  */ 
pieslice(55*x,7*y,0,359,2);  /*  Right  child  */ 
moveto(35*x,7*y);  lineto(45*x,4*y);  lineto(55*x,7*y); 
outtextxy  (45  *x  ,7  *y/2  /’Parent" ) ; 
outtextxy(25*x,7*y,"Left"); 
outtextxy(25*x,15*y/2,"child"); 
outtextxy(58*x,7*y, "Right"); 
outtextxy  (5  8  *x ,  1 5  *y/2  /’child" ); 
pieslice(23*x,10*y,0,359,2); 
pieslice(43*x,10*y,0,359,2); 
pieslice(47*x,10*y  ,0,359,2); 
pieslice(67*x,10*y, 0,359,2); 

moveto(23*x,10*y);  lineto(35*x,7*y);  lineto(43*x,10*y); 
moveto(47*x,10*y);  lineto(55*x,7*y);  lineto(67*x,10*y); 

outtextxy(2*x,15*y,"Now,  all  the  node  you  see  under  the  left  child  (including  'iim- 
self)"); 

outtextxy(2*x,16*y,"is  the  left  subtree."); 

outtextxy(2*x,17*y, "Similarly,  all  the  nodes  under  right  child  is  called  th  right  sub¬ 
tree."); 


delay  _( 36); 

outtextxy(25*x,l  l*y,"Left  subtree"); 


outtextxy(50*x,l  l*y /'Right  subtree"); 
Pause(30*x,24*y); 


1111 


closegraphO; 

videoinit(); 

} 
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/♦PROGRAM  :  exb2.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16, 1990 
REVISED  :  Apr.  17, 1990 

DESCRIPTION  :  Second  example  about  binary  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 


#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfust(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /♦  Zortech  C/C++  ♦/ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  GRAPH  T  DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  graph  (void); 


/*  graphic  initialization  variables  */ 

^****#***i|i**  +  ****!|<***#***>|c***  +  +  +  i((  +  ***  +  **lt[:|<j|c*l|l**  +  *********i|<**  +  ***:t(*>|r*J|<*>(y 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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jit  *********************  ******************************************** 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers( ) ; 
graphdriver  =  DETECT; 

/********************************************************************/ 
initgraph(&graphdri  ver  ,&  graphmode 
graph_error  =  graphresult(); 

/****************** *********  ****** ****** fc****************************^ 

if(graph_error  <  0)( 
puts(grapherrormsg(graph_error ) ) ; 
exit(l); 

I 

y********************************************************************/ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

/*********************%**************%****%*************%***%********/ 


settext(); 

^♦♦♦***i(<*j(i*******>f'****  +  *i(<>l<*  +  *>)i**i('>l<*  +  **>(<')<*'(<*>(<*  +  +  *'t'***>t‘*>l<,(>1(‘,M<***>)<***  +  *>t'^ 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAH1)  II  (graphmode  ==  ATT400HI))  { 
setf illsty  le(S  OLID_FILL,B  L  ACK) ; 
backcolor  =  BLACK; 

I 

else  { 

setfillstyle(SOLID_FILL.BLUE); 
backcolor  =  BLUE; 


forecolor  =  WHITE; 

) 
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I**********************************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


^*%**********************l|t****l|<l(l***********l(t***#!(<****#**l(<***l(tl(<****#***ltt^ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

void  Pause(i,j) 
int  i,  j; 

I 

settextQ; 

ou ttex txy ( i ,j , "»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey()==ESC)  { 
closegraph(); 
videoinit(); 
exit(O); 

I 


/*********************************************************************4y 


/*  main  routine  calls  graphs  routine  */ 

/*******************%********%*****%%**************%%*****%************ 
void  main() 

I 


graph(); 
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/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

void  graph(void) 

I 

/********************************************************************/ 

init_graph(); 

setcolor(foiecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY  -y/2); 

outtextxy(38*x,y/2, "EXAMPLE  4-5-2"); 

outtextxy(2*x,3*y,"The  expression  a  -  b  (where  denotes  substraction)  is 
represented  below."); 

outtextxy(2*x,4*y,"Note  that  the  operation  -  is  represented  by  an  represented  by 
an  internal "); 

outtextxy(2*x,5*y, "vertex  and  the  operands  a  and  b  are  represented  by  tenninal 
vertices."); 

pieslice(45*x,10*y ,0,359,2);  /*  -  */ 

pieslice(35*x,13*y,0,359,2);  /*  a  */ 

pieslice(55 *x,  1 3 *y  ,0,359,2);  /*  b  */ 

moveto(35*x,13*y);  lineto(45*x,10*y);  lineto(55*x,13*y); 

outtextxy(45*x,18*y/2,"-"); 

outtextxy(35*x,27*y/2,"a"); 

outtextxy(55*x,27*y/2,"b"); 

+  +  %  +  +  +  +  +  +  +  +  +  +  *  +  +  *  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  J 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 

) 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exb3.c 

:  Atilia  B AKAN 
:  Apr.  16,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  Third  example  about  binary  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined( _ TURBoC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined(  ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 


1118 


#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void): 

/*  tutorial  functions  */ 

static  void  graph  (void); 


/*  graphic  initialization  variables  */ 

/**********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/+  +  +  +  *  +  +  +  +  +  *  +  +  *  +  +  *  +  +  *  +  *  +  **  +  +  *  +  **  +  +  ****  +  *  +  +  +  +  +  *  +  +  +  *  +  *  +  *  +  +  +  +  +  +  **  +  )f**  +  *  +  +  ,|y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y*‘t'****  +  *  +  +  **  +  *******************>t<**%**>(<l(<**l(c*l)<****l(<J*ci|t***>(<'(<>(<********  +  l(<*>l<^ 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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/I**********************************************************************/ 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

^j^*********************************************************************/ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

initgraph(  &graphdriver  ,&graphmode ,"  " ) ; 
graph_error  =  graphresult(); 

/********************************************************************/ 


if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 


^i*******************************************************************/ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FTLL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

I 

forecolor  =  WHITE; 


1120 


static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

sctcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  msliidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  H  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  =  y’)  II  (ch  =  V)  I!  (ch  ==  ’Y’)  I!  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x  ,23  *y  ,69*x,97 *y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoitiitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*****♦*+ 


**3(t*lt<l(t***l(<**j(€l(Cl(Cj(t***********lt<*l(<****>tt******j|<^***l|<*****J(tl(t****%*l(<l(l^ 


/*  This  function  sets  the  text  default  values 


*/ 


I*  ************* 


♦I*******************************************************/ 


static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


^************j|<#lf<****l|<*l|<*********j|<*********l|tl»rltritt******  +  ***j|r****l|t*j|cl|<***j|r**y 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


void  Pause(i.j) 
int  i,  j; 


settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

I 

/*  main  routine  calls  graph  routine  */ 

void  main() 

I 

graph(); 
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^*************%*  +  ****!(!!|<l<<l|<************!(<+***!(t*  +  *>l<:<<**  +  ’t'***lt<*’t<’t<**’(<  +  't>'t<**‘l<*>(<>ty 


/*  This  routine  gives  an  example  of  expression  trees.  */ 

^*  ********************  41^^****************************************** ****! 


void  graph(vokl) 

{ 


^t*******************************************************************^ 


init_graph(); 
setcolor(forecolor); 
bar(0,0JviaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/8); 
outtextxy(38*x,y/2, "EXAMPLE  4-5-3"); 

^*  *************************************************** ****************^ 


outtextxy(16*x,2+y,"(((6  -  3)  *  2)  +  7)  /  ((5  -  1)  *  4  +  8)"); 
outtextxy(2*x,3*y,"Actully  we  made  things  a  little  bit  easier  by  using  paranthesis 
when  we  were"); 

outtextxy(2*x.4*y, "writing  the  expression.  Now  follow  our  steps  to  build  the  ex¬ 
pression  tree."); 
pieslice(20*x,7*y,0,359,2);  /*  /  */ 
pieslice(10*x,9*y,0,359,2);  /*  ((6  -  3)  *  2)  +  7)  */ 
pieslice(30*x,9*y,0,359,2);  /*  ((5  -  1)  *  4  +  8)  */ 
moveto(10*x,9*y);  lineto(20*x,7*y);  lineto(30*x,9*y); 
outtextxy(20*x,13*y/2,"/"); 
outtextxy(3*x,19*y/2,"((6-3)*2)+7)"); 
outtextxy(23*x ,  1 9*y/2,"((5- 1  )*4+8)"); 

Pause(30*x,24*y); 
setcolor(backcolor ); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 


pieslice(60*x,7*y  ,0,359,2);  /*  /  */ 

pieslice(50*x,9*y, 0,359,2);  /*  +  */ 

pieslice(70*x,9*y,0,359,2);  /*  +  */ 

moveto(50*x,9*y);  lineto(60*x,7*y);  lineto(70*x,9*y); 

outtextxy(60*x,13*y/2,"/”); 

outtextxy(48*x,9*y,"+”); 

outtextxy(72*x,9*y,"+"); 
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pieslice(45*x,l  l*y,0,359,2);  /*  (6  -  3)  *  2  */ 

pieslice(55*x,l  l*y,0,359,2);  /*  7  */ 

pieslice(65*x,l  l*y,0,359,2);  /*  (5  -  1)  *  4  */ 

pieslice(75*x,l  l*y,0,359,2);  /*  8  */ 

moveto(45*x,l  l*y);  lineto(50*x,9*y);  lineto(55*x,l l*y); 

movetcKOS^x.l^y);  lineto(70*x,9*y);  lineto(75*x,l  l*y); 

outtextxy(40*x,23*y/2,"(6-3)*2"); 

outtextxy  (55  *x  ,23  *y/2,"  V  "); 

outtextxy(60*x,23*y/2,"(5- 1  )*4"); 

outtextxy(75*x,23*y/2,''8"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forc,rolor); 

pieslice(25*x,13*y,0,359,2);  /*  /  */ 

pieslice(15*x,15*y, 0,359,2);  /*  +  */ 

pieslice(35*x,15*y,0,359,2);  /*  +  */ 

moveto(15*x,15*y);  lineto(25*x,13*y);  lmeto(35*x,15*y); 

outtextxy(25i,x,25*y/2,"/”); 

outtextxy(  1 3  *x,  1 5  *y ,"+" ); 

outtextxy(37*x,15*y,"+"); 

pies!ice(10*x,17*y,0,359,2);  /*  *  *' 

pie3lice(20*x,17*y,0,359,2);  1*1  */ 

pieslice(30*x,17*y,0,359,2);  /*  *  */ 

pieslice(40*x,17*y, 0,359,2);  /*  8  */ 

moveto(10*x,17*y);  Iineto(15*x,15*y);  lineto(20*x,17*y); 

moveto(30*x,17*y);  lineto(35*x,15*y);  lineto(40*x,17*y); 

outtextxy(8*x,17*y,"*"); 

ouftextxy(20*x,35*y/2,"7”); 

outtextxy(28*x,17*y,"*"); 

outtextxy(40*x,35*y/2,"8”); 

pieslice(5*x,19*y,0,359,2);  /*  (6  -  3)  */ 

pieslice(.15*x,19*y,0,359,2);  /*  2  */ 

pieslice(25*x.l9*y,0,359,2);  /*  (5  -  J )  */ 

pieslice(35*x,19*y,0,359,2);  /*  4  */ 
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moveto(5*x,19*y);  lineto(10*x,17*y);  lineto(15*x,19*y); 
moveto(25*x,19*y);  lineto(30*x,17*y);  lineto(35*x,19*y); 
outtextxy(2*x,39*y/2,"(6  -  3)"); 
outtextxy(15*x,39*y/2,"2"); 
outtextxy(22*x,39*y/2,"(5  -  1)"); 
outtextxy(35*x,39*y/2,"4"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23+y,70*x,49*y/2); 

setcolor(  forecolor); 


J************* *********************************************** ******** j 


pieslice(65*x,13*y,0,359,2);  /*  /  */ 

pieslice(55*x,15*y,0,359,2);  /*  +  */ 

pieslice(75*x,15*y,0,359,2);  /*  +  */ 

moveto(55*x,15*y);  lineto(65*x,13ty);  lineto(75*x,15*y); 

outtextxy(65*x,25*y/2,"/"); 

outtextxy(53*x,15*y,"+"); 

outtextxy(77*x,15*y,"+"); 

pieslice(50*x,17*y,0,359,2);  /*  *  */ 

pieslice(60*x,17*y,0,359,2);  /*  7  */ 

pieslice(70*x,17*y,0,359,2);  /*  *  */ 

pieslice(80*x,  1 7*y,0,359,2);  /*  8  */ 

moveto(50*x,17*y);  lineto(55*x,15*y);  liiieto(60*x,17*y); 

moveto(70*x,17*y);  lineto(75*x,15*y);  lineto(80*x,17*y); 

outtextxy(48*x,17*y,"*"); 

outtextxy(60*x,35*y/2,"7"); 

outtextxy(68*x,17*y,"*"); 

outtextxy(80*x,35*y/2,"8"); 

pieslice(45*x,19*y,0,359,2);  /*  -  */ 

pieslice(55*x,19*y,0,359,2);  /*  2  */ 

pieslice(65*x,19*y,0,359,2);  /*  ~  */ 

pieslice(75*x,19*y,0,359,2);  /*  4  */ 

moveto(45*x,19*y);  lineto(50*x,17*y);  lineto(55*x,19*y); 

moveto(65*x,19*y);  lineto(70*x,17*y);  lineto(75*x,19*y); 

outtextxy(43*x,19*y,"- "); 

outtextxy(55*x.39*y/2,"2"); 
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outtextxy(62*x,19*y,"-"); 
outtextxy(75*x,39*y/2,"4"); 
pieslice(40*x,21*y,0,359,2);  /*  6  */ 
pieslice(50*x,21*y,0,359,2);  /*  3  */ 
pieslice(60*x,21*y,0,359,2);  /*  5  */ 

pieslice(70*x,21*y,0,359,2);  /*  1  */ 
moveto(40*x,21*y);  lineto(45*x,19*y);  lineto(50*x,21*y); 
moveto(60*x,21*y);  lineto(65*x,19*y);  lineto(70*x,21*y); 
outtextxy(40*x,43*y/2,"6"); 
outtextxy(50*x,43  *y/2,"  3  " ); 
outtextxy(60*x,43*y/2,"5"); 
outtextxy(70*x,43*y/2,"  1 "); 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exb4.c 

:  Atilla  BAKAN 
:  Apr.  16,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  Third  example  about  binary  trees.  It  gives  an  example  of 
preorder  traversal. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  fmd_t 

#define  ff_name  name 

#elif  defined(_ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 

static  void  graph  (void); 

^********************************************************* ************* I 

/*  graphic  initialization  variables  */ 

I************** ******************************************************** ^ 

int  currjmode; 

int  graphdriver; 

int  graphniode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY ; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/***%*:|<*4<*****>|<****>|>%**i|<%%4<*********!t<*#*******i|>'f<**>tc*>l'*>t<********%***>l<>t>>k>iy 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_diiver)  <  0)  exit(l); 
if(registerbgiclriver(ATT_driver)  <  0)  exit(l); 
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/**********************************************************************/ 
/*  This  faction  initializes  the  necessary  graphical  routines  */ 

I**********************************************************************/ 
static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_diivers(); 
graphdriver  =  DETECT ; 

I*  *  * + *  *  *  * + + *  * + + * * * + *  *  *  *  *  *  * + + * + * + * * + *  % * + *  *  * + * + * + *  * + + *  * + 4>  j)>  * + + + *  *  * * jfc  *  % +j|y 

initgraph(&graphdriver,&graplimode,""); 
graph_error  =  graphresult(); 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

) 

Z********************************************************************/ 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext( ); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 


1129 


static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Axe  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  It  (ch  ==  ’Y’)  I!  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23  *y,69*x,97*y/4 ); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default :  break; 


hidecur(); 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


) 

y*************************************** *******************************/ 

/*  Tliis  function  sets  the  text  default  values  */ 

y* **********************************  *********  **************************^ 

static  void  settext(void) 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HOR!Z_DIR,CENTER_TEXT); 


/****** ************************************************************* ***/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(  waitkey ( )==ESC )  confirm_graph_exit( ); 


^**********************************************************************^ 
/*  main  routine  calls  graphs  routine  */ 

^**********************************************************************y 
void  niain() 

I 


graph(); 


I 
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z**********************************************************************^ 

/*  This  routine  gives  an  example  of  preorder  traversal.  */ 

/ft*********************************************************************/ 

void  graph(void) 

{ 


init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/8); 
outtextxy(38*x,y/2, "EXAMPLE  4-5-4"); 

/***********************************+***********+******+*************/ 
outtextxy(2*x,2*y,"For  simplicity  we  will  identify  the  nodes  with  letters  instead  of 
operations"); 

outtextxy(2*x,3*y,"or  operands."); 

outtextxy(2*x.4*y,"As  we  visit  each  vertex  we  will  also  keep  the  preorder  list  for 
you  to  follow."); 

I  *  *  *  *  *  *  ])<  +  **  *  *  +  *  %  *  *  *  if  *  4c  *  **  *  *  **  *  *  *  **  *  *  ill*  *  Jf.  ****  **  *  *****  *  *  *  **  *  ****  ***  *  *  * 


pieslice(27*x,5*y,0,359,2);  /*  H  */ 
pieslice(17*x,7*y,0,359,2);  /*  F  */ 
pieslice(37*x.7*y  ,0,359,2);  /*  N  */ 
moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 
outtextxy(27*x,9*y/2,"H"); 
outtextxy(15*x,7*y,"F"); 
outtextxy(39*x,7*y,"N"); 
pieslice(12*x,9*y,0,359,2);  /*  D  */ 
pieslice(22*x,9*y,0,359,2);  /*  G  */ 
pieslice(32*x,9*y,0,359,2);  /*  L  */ 
pieslice(42*x,9*y,0,359,2);  /*  O  */ 
movetoU2*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 
moveto(32*x,9*y);  lineto(37*x,7*y);  lineto(42*x,9*y); 
outtextxy(10*x,9*y,"D"); 
outtextxy(22*x,19*y/2,"G"); 
outtextxy(30*x,9*y,"L"); 
outtextxy(42*x,19*y/2,"0”); 
pieslice(7*x,l  I  *y, 0,359, 2);  /*  B  */ 
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pieslice(  1 7*x,  1 1  *y ,0,359,2);  /*  E  */ 
pieslice(27*x,l  l*y,0,359,2);  /*  J  */ 

pieslice(37*x,l  l*y,0,359,2);  /*  m  */ 

moveto(7*x,ll*y);  lineto(12*x,9*y);  lineto(17*x,ll*y); 
moveto(27*x,ll*y);  lineto(32*x,9*y);  lineto(37*x,ll*y); 


outtextxy(5  *x ,  1 1  *y  ,"B  " ); 

outtextxy(17*x,23*y/2,"E"); 

outtcxtxy(24*x,n*y,"J"); 

outtextxy(37*x,23  *y/2,"M" ); 

piesiice(2*x,13*y,0,359,2);  /*  A  */ 

piesiice(12*x,13*y,0,359,2);  /*  C  */ 

pieslice(22*x,13*y,0,359,2);  /*  I  */ 

pieslice(32*x,13*y,0,359,2);  /*  K  */ 

inoveto(2*x,13*y);  lineto(7*x,ll*y);  lineto(12*x,13*y); 

moveto(22*x,13*y);  lineto(27*x,ll*y);  lineto(32*x,13*y); 

outtextxy(2*x,27*y/2,"A"); 

outtextxy(12*x,27*y/2,"C"); 

outtextxy(22*x,27*y/2,'T'); 

outtextxy(32*x,27*y/2,"K"); 

^*********** ******************  J***************************************/ 

outtextxy(44*x,5*y,"Step  by  step  Preorder  Traversal"); 
moveto(43*x,l  1  *y/2);  lineto(89*x,l  1  *y/2); 
outtextxy(3*x,29*y/2, "Preorder  Listing"); 
moveto(2*x,15*y);  lineto(40*x,15*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y.70*x,49*y/2); 

setcolor(forecolor); 

setlinestyle(3,0,l); 

^********************************************************************^ 


outtextxy(44*x,6*y,"We  will  start  out  traversal  by  visiting"); 
outtextxy(44*x,7*y,"root  H  and  put  it  in  the  preorder  list”); 
outtextxy(3*x,16*y,"H"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y.70*x,49*y/2); 
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setcolor(forecolor); 

moveto(44*x,15*y/2);  lineto(89*x,15*y/2); 

outtextxy(44*x,8*y,"Now  we  go  to  the  left  subtree  of  H  and"); 
outtextxy(44*x,9*y, "start  traversal  again.  This  time  we  will"); 
outtextxy(44*x,10*y, "visit  the  root  F  and  put  it  in  the  list."); 
outtextxy(5*x,16*y,"F"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,21*y/2);  lineto(89*x,21  *y/2); 

outtextxy(44*x,l  l*y,"Next  we  will  go  to  the  left  subtree  of  F"); 
outtextxy(44*x,12*y,"this  time,  and  start  traversal  from  this"); 
outtextxy(44*x,13*y,"point.  We  will  visit  root  D  this  time"); 
outtextxy(44*x,14*y,"and  put  it  in  the  list."); 
outtextxy(7*x,16*y,"D"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,29*y/2);  lineto(89*x,29*y/2); 

outtextxy(44*x,15,,'y,"Now  we  will  go  to  left  subtree  of  D  and"); 
outtextxy(44*x,I6*y,"visit  the  root  B  and  put  it  into  list”); 
outtextxy(9*x,16*y,"B"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x.33*y/2);  lineto(89*x.33*y/2); 

^t**^^***************************************************************^ 

outtextxy(44*x,17*y,"We  now  will  go  to  the  left  subtree  of); 
outtextxy(44*x,18*y,"B  and  visit  A  and  put  it  into  the  list."); 
oultextxy(44*x,l9*y,"As  you  see  A  does  not  have  a  left  sub-"); 
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outtextxy(44*x,20*y,"tree,  so  according  to  the  algorithm  we"); 
outtextxy(44*x,21*y,"will  now  visit  the  right  subtree  of’); 
outtextxy(44*x,22*y,"B  (which  consist  of  just  the  vertex  C)"); 


outtextxy(44*x,23*y,"and  put  C  to  the  list"); 

outtextxy(ll*x,16*y/'A"); 

outtextxy(  1 3  *x ,  1 6*y  ,"C" ); 

Pause(30*x,24*y); 

setco!or(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(  forecolor); 


outtextxy(44*x,6*y /'Consequently,  we  next  begin  the  traver-"); 
outtextxy(44*x,7*y,"sal  of  the  right  subtree  of  D.As  you  see"); 
outtextxy(44*x,8*y,"this  subtree  consists  only  of  the  ver-"); 
outtextxy(44*x,9*y,"tex  E.  So  we  will  visit  E  and  put  it"); 
outtextxy(44*x,10*y,"into  our  list."); 
outtextxy(15*x,16*y,"E"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,21  *y/2);  lineto(89*x,21  *y/2); 

outtextxy(44*x,l  l*y,"Next  we  will  do  the  traversal  of  "); 
outtextxy(44*x,12*y, "right  subtree  of  root  F,  visit  ver-”); 
outtextxy(44*x,13*y,"tex  G  and  put  it  into  the  list."); 
outtextxy(17*x,16*y,"G"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolorf  forecolor); 

moveto(44*x.27*y/2);  lineto(89*x,27*y/2); 


outtextxy(44*x,I4*y,”As  you  notice  we  have  completed  "); 
outtextxy(44*x,15*y,"the  traversal  of  the  left  subtree"); 
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outtextxy(44*x,16*y,"of  the  root  H.  So  now  we  will  start"); 
outtextxy(44*x,17*y, "traversal  of  right  subtree  of  H."); 
outtextxy(44*x,18*y,"to  do  that  we  will  visit  root  N  and"); 
outtextxy(44*x,19*y,"go  to  the  left  subtree  of  N  and  "); 
outtextxy(44*x,20*y, "begin  another  preorder  traversal."); 
outtextxy(19*x,16*y,"N"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y,70*x,49*y/2); 
setcol  or(forecol  or); 


y'*  *********  ******  *****************************  ***********************/ 


outtextxy(44*x,6*y,"We  now  visit  root  L  and  put  it  into"); 
outtextxy(44*x,7*y,"the  list,  and  then  go  to  the  left  "); 
outtextxy(44*x,8*y,"sv.btree  of  L  to  begin  anodic:  ha-"); 
outtextxy(44*x,9*y,"versal."); 
outtextxy(21*x,16*y,"L"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x ,  1 9*y/2 );  lineto(89*x,  1 9*y/2); 

/********************************************************************/ 
outfextxy(44*x,10*y,"This  time  we  will  visit  root  J."); 
outtextxy(44*x,l  l*y,"We  put  it  into  the  list,  then  we"); 
outtextxy(44*x,12*y,"go  to  the  left  subtree  of  J  for  "); 


outtextxy(44*x,13*y, "another  traversal."); 
outtextxy(23*x,l  6*y,"J"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
se  tcol  or(  f orecol  or ) ; 

moveto(44*x.27*y/2);  lineto(89*x,27*y/2); 

y*****************************************]),***,l<********,t(1|<*,t,;(<:(,,(,,|,,(,,)<,),,(,,(<,t, 


outtextxy(44*x,14*y,"Left  subtree  of  J  consists  of  just"); 
outtextxy(44*x,15*y,”one  vertex,  namely  vertex  I.  We  vi-"); 
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outtextxy(44*x,16*y,"sit  this  vertex  and  put  it  to  the  "); 
outtextxy(44*x,17*y,"list.  As  you  see  I  does  not  have"); 
outtextxy(44*x,18*y,"left  subtree.  So  we  go  to  right"); 
outtextxy(44*x,19*y, "subtree  of  J  for  another  traversal"); 
outtextxy(25*x,16*y,"I"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,39*y/2);  lineto(89*x,39*y/2); 

jlf  i,  **  *  *  V  *  **  **  ****  *  *  *  *  *  ***  ***  *  *  *  ★  *  *  *  ****  *  *****  *  *  ***  **  ***  *  *  *  **  *  **  *  **  ** 


outtextxy(44*x,20*y, "Right  subtree  of  J  consists  of  just"); 
outtextxy(44*x,21*y,"the  vertex  K.  We  visit  this  vertex"); 
outtextxy(44*x,22*y,"and  put  it  into  the  list."); 
outtextxy(27*x,l6*y,"K"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 


outtextxy(44*x,6*y,”As  you  see  we  have  completed  the"); 
outtextxy(44*x,7*y, "traversal  of  the  left  subtree  of'); 
outtextxy(44*x,8*y,"the  root  L.  So  now  we  will  start"); 
outtextxy(44*x,9*y, "traversal  of  right  subtree  of  L."); 
outtextxy(44*x,10*y,"to  do  that  we  will  visit  M  which"); 
outtextxy(44*x,l  l*y,”is  the  only  vertex  at  the  right"); 
outtextxy(44*x,12*y, "subtree  of  root  L."); 
outtextxy(29*x ,  1 6*y  ,"M"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,25*y/2);  lineto(89*x,25*y/2); 

^***************************  +  ***<'**************  +  ********:tt************y 

outtextxy(44*x,13*y,"This  las*  visit  completed  the  ”); 
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outtextxy(44*x,14*y, "traversal  of  the  left  subtree  of'); 
outtextxy(44*x,15*y,"the  root  N.  So  now  we  will  go  to  "); 
ouftextxy(44*x,16*y,"the  right  subtree  of  N  and  start."); 
outtextxy(44*x,17*y, "another  traversal.  This  traversal"); 
outtextxy(44*x,18*y, "consists  only  of  visiting  vertex  O"); 
outtextxy(44*x.l9*y,"and  so  completes  the  preorder  tra-"); 
outtextxy(44*x,20*y,"versal  of  the  entire  binary  tree."); 
outtextxy(31*x,16*y,"0"); 

/********************************************************************/ 

Pause(30*x,24*y); 

closegraphO; 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exb5.c 

:  Atilla  BAKAN 
:  Apr.  16,  1990 
:  Apr.  17, 1990 


DESCRIPTION  :  Fifth  example  about  binary  trees.  It  gives  an  example  of 
preorder  traversal. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined(__TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC__)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a ) 

#define  ffblk  fuid_t 

#defuie  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#defijie  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confinn_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  graph  (void); 

/****************************************************** ****************/ 
/*  graphic  initialization  variables  */ 

/*  *****************************%******%**************%*****************/ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


y**********************************************************************y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y'**********************************************************************^/ 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
iftregisterbgidriver(ATT_driver)  <  0)  exit(l); 
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/*+**  +  ****if  +  ******  +  ***  +  **  +  ***********>t>+*  +  **+*++>*'**+********  +  #’4<**>*<  +  +  +  *  +  >ty 

/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/%***********************%******>i<*****  *********************************/ 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

4<4<4c3|<]4citc4<a|<4>4<4c4citc4>4<3(<4<4c>t<4<4c4<4<3t(4<4>4i4<4<4<4<4>><<4<4>4(4c4<4<4<4t%4‘34<3t<4<4<4>%4<4c4>3tt>t<4<i<<>4c4<4>4<>l<4c4i4c4c%4>y 

initgraph(&  graphdriver, &graphmode ,"" ); 
graph_error  =  grapliresult(); 

y*  *******************************************************************/ 

if(graph_error  <  0)  ( 

puts(grapherronnsg(graph_error)); 

exit(l); 

I 

/********************************************************************/ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graplmiode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graplimode  == 
ATT400MED)  II  (graplunode  ==  MCGAHI)  II  (graphmode  =  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 


set  fillstyle(SOLID_FILL, BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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^♦a********************************************************************/ 

static  void  confinn_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bai(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblisf=chgonkey(NULL);  /*  hide  arty  existing  hot  keys  */' 
if(jmouse&MS_CURS)  mshidecurO; 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getcli  ( ); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtcxtxy(32*x,24*y,"  Please  type  y  or  a"); 
ch  =  getcli  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(  3 1  *  x  ,2  3  *  y  ,69 *  x  ,97 *  y /4 ) ; 

se  t  coloi  ( qu  i  t  color ); 

I 

switcli(ch)  | 

case  ’y’;  closegraph(); 
vidcoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break ; 

case  ’n’:  selcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

hart  3 1  +x,23*y,69*x,97*y/4); 

setcolor(forccolor); 

bre.ak; 

case  N-:  sctcolor(baikcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 


hidecurQ; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/****** ***********%* ************* t*************************************^ 

/*  This  function  sets  the  text  default  values  */ 

^**********************************************************************y 
static  void  settext(void) 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


jtf  *****  *  *******************  ***************************  ****  ***********  **^ 

/*  Equivalent  of  press_a_key  function  for  grapliics  screen  */ 

/**********************************************************************/ 
void  Pause(i,j) 
int  i,  j; 

I 

settext(); 


outtextxy(i,j,”»PRESS  A  KEY  TO  CONTINUE«"); 
if(waitkeyO==ESC)  confirm_graph_exit(); 

) 

/*  main  routine  calls  graph  routine  */ 


void  maint ) 


graph! ); 
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/*  This  routine  gives  examples  of  trees  and  some  graphs  that  are  not  trees.  */ 

y**********************************************************************/ 

void  graph(void) 


y********************************************************************^ 


init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/8); 
outtextxy(38*x,y/2, "EXAMPLE  4-5-5"); 

y**** c***************************************************+***++*******y 

outtextxy(2*x,2*y,"For  simplicity  we  will  identify  the  nodes  with  letters  instead  of 
operations"); 

outtextxy(2*x,3*y,"or  operands  as  we  did  in  previous  example."); 
outtextxy(2*x,4*y, "Again  we  visit  each  vertex  we  will  also  keep  the  preorder 
list."); 

y*******************************************************************^ 

pieslice(27*x,5*y,0,359,2);  /*  G  */ 

pieslice(17*x.7*y,0,359,2);  /*  D  */ 
pieslice(37*x,7*y,0,359,2);  /*  H  */ 
moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 
outtextxy(27*x,9*y/2,"G"); 
outtextxy(I5*x,7*y,"D"); 
outtextxy(39*x,7*y,"H"); 
pieslice(12*x,9*y,0,359,2);  /*  C  */ 
pieslice(22*x.9*y,0,359,2);  /*  E  */ 
moveto(12*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 
outtextxy(  10*x,9*y,"C"); 
outtextxy(22*x,19*y/2,"E"); 
pieslice(7*x,l  1  *y ,0,359,2);  /*  A  */ 

pieslice(18*x,l  1  ♦y, 0,359, 2);  /*  F  */ 
moveto(7*x,l  1  *y);  lineto(12*x,9*y); 
moveto(22*x,9*y);  lineto(18*x,l  l*y); 
outtextxy(5*x,l  1  *y,"A"); 
outtextxy(  18*x,23*y/2,"F"); 
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pieslice(  1 2*x,  1 3 *y  ,0,359,2);  /*  B  */ 
moveto(7*x,l  l*y);  lineto(12*x,13*y); 
outtextxy(12*x,27*y/2,"B"); 


outtextxy(44*x,5*y,”Step  by  step  Preorder  Traversal"); 

moveto(43*x,l  l*y/2);  lineto(89*x,l  l*y/2); 

outtextxy(3*x,29*y/2, "Preorder  Listing"); 

moveto(2*x,15*y);  lineto(40*x,15*y); 

Pause(30*x,24*y); 

setcolor(backcolor ) ; 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

setlinestyle(3,0,l); 


outtextxy(44*x,6*y,"We  will  start  out  traversal  by  visiting"); 
outtextxy(44*x,7*y,"root  G  and  put  it  in  the  preorder  list"); 
outtextxy(3*x,16*y,"G"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23  *y,70*x,49*y/2); 
setcolor(forecolor); 

moveto(44*x,15*y/2);  lineto(89*x,15*y/2); 

/**%*****«********%%************%**.|,,|,*If,**%*%*>t<*****%*****************y' 

outtextxy(44*x,8*y,"Now  we  go  to  the  left  subtree  of  G  and"); 
outtextxy(44*x,9*y, "start  traversal  again.  This  time  we  will"); 
outtextxy(44*x,10*y, "visit  die  root  D  and  put  it  in  the  list."); 
outtextxy(5*x,16*y,,,r)"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x.21*y/2);  lineto(89*x,21*y/2); 


outtextxy(44*x,l  1  *y,"Next  we  will  go  to  the  left  subtree  of  D"); 
outtextxy(44*x,12*y,"this  time,  and  start  traversal  from  this”); 
?’inextxy(44*x,13*y, "point.  We  will  visit  root  C  this  time"); 
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outtextxy(44*x,14*y,"and  put  it  in  the  list."); 
outtextxy(7*x,16*y,"C"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,29*y/2);  lineto(89*x,29*y/2); 

I  **  **********  *********  **  *  ***  *  ******  *******  **  *  ******  *  **  *  *  ***  *  *  ******* 

outtextxy(44*x,15*y,"Next  we  will  go  to  the  left  subtree  of  D"); 
outtextxy(44*x,l6*y,"this  time,  and  start  traversal  from  this"); 
outtextxy(44*x,17*y, "point  and  visit  root  A  this  time  and  put"); 
outtextxy(44*x,18*y,"and  put  it  in  the  list."); 
outtextxy(9*x,16*y,"A"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,37*y/2);  lineto(89*x,37*y/2); 

^♦"fr******************************************************************^ 

outtextxy(44*x,19*y,”As  you  see  A  does  not  have  left  subtree."); 
outtextxy(44*x,20*y,"So  we  then  go  to  right  subtree  of  A  and"); 
outtextxy(44*x, 21  *y, "start  traversal  from  there.We  will  visit"); 
outtextxy(44*x,22*y, "vertex  B  at  the  right  subtree  of  A,  and"); 
outtextxy(44*x,23*y,"put  it  into  the  list."); 
outtextxy(l  l*x,16*y,"B”); 

Pause(30*x,24*y); 
setcolor(  backcolor ) ; 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y,70*x,49*y/2); 
setcolort  forecolor); 

outtextxy(44*x,6*y, "Since  C  does  not  have  right  subtree  we"); 
outtextxy(44*x,7*y,"have  completed  traversing  left  subtree"); 
outtextxy(44*x,8*y,"of  the  root  D.  So  we  will  go  to  the  "); 
outtextxy(44*x,9*y, "right  subtree  of  D  and  start  another  "); 
outtextxy(4  -*x,10*y, "preorder  traversal.  ITus  time  we  visit"); 
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outtextxy(44*x,ll*y,"root  E,  aiidput  it  into  the  list."); 
outtextxy(13*x,16*y,"E"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,23*y/2);  lineto(89*x,23*y/2); 

/if*******************************************************************/ 


outtextxy(44*x,12*y,"Then  we  go  to  the  left  subtree  of  E  and"); 
outtextxy(44*x,13*y, "start  another  traversal  again.Since  this"); 
outtextxy(44*x,14*y,"subtree  consists  only  of  the  vertex  F"); 
outtextxy(44*x,15*y,"we  will  visit  F  and  put  it  into  list."); 
outtextxy(15*x,16*y,"F"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,3 1  *y/2);  lineto(89*x,3 l*y/2); 

ouftextxy(44*x,l  6*y, "Since  neither  F  nor  E  has  right  sub-"); 
outtextxy(44*x,17*y,"tree  we  have  completed  traversal  of); 
outtextxy(44*x,18*y,"the  reft  subtree  of  root  G.  Conse-"); 
outtextxy(44*x,19*y,"quently  we  go  to  the  right  subtree"); 
outtextxy(44*x,20*y,"of  G  where  there  is  only  the  vertex"); 
outtextxy(44*x,21*y,"H.  Visiting  this  vertex  will  complete"); 
outtextxy(44*x,22*y,"the  preorder  traversal  of  the  entire"); 
outtextxy(44*x, 23 *y, "binary  tree.”); 
outtextxy(17*x,16*y,"H"); 

****+**+**********************************************************/ 

Pause(30*x,24*y); 

closegraphO; 

videoinit(); 


} 
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/*  PROGRAM  :  exb6.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16,  1990 
REVISED  :  Apr.  17,  1990 

DESCRIPTION  .Sixth  example  about  binary  trees.  It  gives  an  example  of  Polish 
notation. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 

static  void  graph  (void); 

/if*********************************************************************/ 

/*  graphic  initialization  variables  */ 

/I**********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 

/**#  +  *  +  +  +  *  +  *  +  +  +  +  +  +  *  +  ***  +  *********  +  ***  +  +  +  *+***  +  **  +  +  +  +  +  *■!>  +  *  +  +  +  +  +  >(<***  +  +  *  +  +/ 
/*  This  fuiiction  is  used  for  including  drivers  to  the  executable  code  */ 

^♦♦***************i(i**Jtt^**i(i*  +  ***4n(<>l<**<<  +  ****>t<***********>l<*****i(citt**i(i**  +  ***^ 

stm:c  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


j*  *  *  ****  *  **  *  *  ******  *  +  *  *  *  +  >l<  Jit*********  ******  **  +  *  ***  *  +  **  ***  ****  **  **  ***  ***  +y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 


uit  xasp,  yasp; 


register_drivers( ) ; 
graplulriver  =  DETECT; 

^********************************************************************^ 
initgraph(&  graphdr  iver  ,&graphmode ,""); 
grapherror  =  graphresult(); 

if(graph_error  <  0) { 

puts(grapherronnsg(graph_error)); 

exit(l); 


/********************************************************************/ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graplunode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfiIJstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 
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/**********************************************************************/ 
static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(quitcolor) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurQ; 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  ( ); 

while  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  li  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23I,'y,69*x,97*y/4); 

setcolortquitcolor); 

) 

switch  (ch)  { 

case  ’y’:  closegraphO; 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraphO; 
videoinitO; 
exit(O); 
break; 

case  'n':  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(3 1  *x,23*y,69*x,97*y/4); 
setcolob  forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecurQ; 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kbllst);  /*  restore  any  hidden  hot  keys  */ 

} 

/*  This  function  sets  the  text  default  values  */ 

/******%****%***********%*************%****%******%**************%*****/ 
static  void  settext(void) 

I 

settextstyle(O.O.O); 

setlinestyle(0.4.3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

) 

^* **********%**********************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/************************************#*****%******.-:<********************/ 

void  Pause(i,j) 
int  i,  j; 

( 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<«"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

) 

y**********************************************************************/ 
/*  main  routine  calls  graph  routine  */ 

/****************%******%***************************%%*****************/ 
void  main( ) 

I 

graph( ); 
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/****************************%****%*******************%****************/ 
/*  This  routine  gives  an  example  of  Polish  notation.  */ 

void  graph(void) 


y********************************************************************/ 

init_graph(); 

setcolor(  forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x  ,y  ,MaxX-x,MaxY  -y/8 ) ; 

outtextxy(38*x,y/2, "EXAMPLE  4-5-6”); 

/♦★ft*****************************************************************/ 

outtextxy(2*x,2*y,"This  time  we  will  show  you  how  to  obtain  Polish  notation  from 
the  following"); 

outtextxy(2*x,3*y,"expression  (((6  -  3)  *  2)  +  7)  /  (((5  -  1)  *  4)  +  8).  While  we 
are  doing"); 

outtextxy(2*x,4*y,"this  we  won't  tell  you  the  details  of  our  implementation,  but  we 
will  let"); 

outtextxy(2*x,5*y,"you  think  about  between  each  step.  Later  we’ll  try  to  do  the  re¬ 
verse  of  this"); 

outtextxy(2*x,6*y, "operation,  that  is  obtaining  the  actual  expression  from  the  Pol¬ 
ish  notation."); 

pieslice(27*x,8*y,0,359,2);  /*  /  */ 

pieslice(17*x,10*y,0,359,2);  /*  +  */ 
pieslice(37*x.l0*y,0,359,2);  /*  +  */ 
moveto(17*x,10*y);  lineto(27*x,8*y);  lineto(37*x,10*y); 
outtextxy(27  *x ,  1 5  *y/2 ,"/" ); 
outtextxy(15*x,10*y,"+"); 
outtextxy(39*x,10*y,"+"); 
pieslice(12*x,12*y,0,359,2);  /*  *  */ 
pieslice(22*x,I2*y,0,359,2);  /*  7  */ 
pieslice(32*x,12*y,0,359,2);  /*  *  */ 

pieslice(42*x,l 2*y,0,359,2);  /*  8  */ 
moveto(12*x,12*y);  lineto(17*x,10*y);  lineto(22*x,12*y); 
moveto(32*x,12*y);  lineto(37*x,10*y);  lineto(42*x,12*y); 
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outtextxy(10*x,12*y 

outtextxy(22*x,25*y/2,"7"); 

outtextxy(30*x,12*y 

outtextxy(42*x,25*y/2,"8"); 

pieslice(7*x,14*y,0,359,2);  /*  -  */ 

pieslice(17*x,14*y, 0,359,2);  1*2  */ 

pieslice(27*x,  14*y,0,359,2);  /*  -  */ 

pieslice(37*x,14*y,0,359,2);  /*  4  */ 

moveto(7*x,14*y);  lineto(l2*x,12*y);  lineto(17*x,14*y); 

moveto(27*x,14*y);  lineto(32*x,12*y);  linetc(37*x,14*y); 

outtextxy(5*x,14*y ,"-"); 

outtextxy(  1 7*x,29*y/2,"2"); 

outtextxy(24*rM14'!‘y 

outtextxy(37*x,29*y/2,"4"); 

pieslice(2*x,16*y,0,359,2);  /*  6  */ 

pieslice(12*x,16*y,0,359,2);  /*  3  */ 

pieslice(22*x,16*y,0,359,2);  /*  5  */ 

pies!;ce(32*x,16*y,0,359,2);  /*  1  */ 

moveto(2*x,16*y);  lineto(7*x,14*y);  lineto(12*x,16*y); 

moveto(22*x,16*y );  lineto(27  "x,14*y);  lineto(32*x,16*y); 


outtextxy(2*x,33*y/2,"6"); 
outtextxy(  1 2*x,33*y/2,"3"); 
outtextxy(22*x,33*y/2,"5"); 
outtextxy(32*x,33*y/2,"l"); 


outtextxy(3*x,39*y/2, "Polish  notation"); 
moveto(2*x,20*y);  lineto(38*x,20*y); 
Pause(30*x,24*y); 

^etcolor(backcolor); 
bar(3*x/2,4*y/3,89*x,13*y/2); 
bar(29*x,23*yJ0*x,49*y/2); 
setcolor(  forecolor)- 


Pause(30*x,24*y); 

outtextxy(3*x.21*y,"/"); 

setcolor(backcolor); 
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bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

/a*******************************************************************/ 


Pause(30*x,24*y); 
outtextxy(5*x,21  *y ,"+"); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 

^*******************************>(<*>('*****>('**********‘(<**********it'ii<*****/ 


Pause(30*x,24*y); 
outtextxy(7*x,21  *y 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 

Pause(30*x,24*y); 
outtextxy(9*x,21  *y,"-"); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecoIor); 

y********************************************************************/ 

Pause(30*x,24*y); 
outtextxy(  1 1  *x,2 1  *y  ,"6" ); 
setcolor(backcolor); 
bar(29 *x ,2 3  * y  70 *x  .49 *y/2 ) ; 
setcolor(forecolor); 

^***3(<**l(l*****)|<J|<*ltM(l**********'t<*>('>t<*lt<*>(t*>t<**>t''(<*  +  *>('*l(<**>('******  +  ******,4'****^ 

Pause(30*x,24*y); 

outtextxy(13*x,21*y,"3"); 

setcolor(backcolor); 

bar(29*x,23*y.70*x,49*y/2); 

setcolor(forecolor); 

Pause(30*x,24*y); 
outtextxy(15*x,21  *y,"2"); 
setcolor(backcolor); 
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bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

y*********************************************** *********<*****< <****#*y 

Pause(30*x,24*y); 
outtextxy(  17*x,2 1  *y,"7"); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forec  olor) ; 

Pause(30*x,24*y); 

outtextxy(19*x,21*y,"+"); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

Pause(30*x,24*y); 
outtextxy(21  *x,21  *y,"*"); 
setcolor(bdckcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 

y^**************************^*************************************’!^ 

Pause(30*x,24*y); 
outtextxy(23*x, 21  *y 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

Pause(30*x,24*y); 

outtextxy(25*x,21*y,"5"); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

Pause(30*x,24*y); 
otittextxy(27*x,2 1  *y,"  1 "); 
setcolor(backcolor); 


1156 


bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

Pause(30*x,24*y); 
outtextxy(29*x,21  *y,"4"); 
setcolor(backcolor); 
bar(29*x  ,23*y,70*x,49*y/2); 
setcolor(forecolor); 

Pause(30*x,24*y); 
outtextxy(31  *x,21  *y,"8"); 

/********************************************************************/ 

Pause(30*x,24*y); 

se  tool  or(  backcolor ) ; 

bar(3*x/2,17*y,50*x,23*y); 

setcolor(forecolor); 

outtextxy(3*x,37*y/2, "Evolution  of  the  expression"); 
moveto(2*x,19*y);  lineto(50*x,19*y); 
outtextxy(44*x,17*y/4, "Explanations  for  each  step"); 
inoveto(43*x,19*y/4);  lineto(89*x,19*y/4); 

/fr*******************************************************************/ 

outtextxy(2*x,2*y,"This  time  we  will  show  you  how  to  obtain  our  original  expres¬ 
sion  back"); 

outtextxy(2*x,3*y,"To  do  this  we  will  again  apply  the  rule  step  by  step  for  you  to 
follow."); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 


outtextxy(44*x,6*y, "Start  scanning  from  left  to  right."); 
outtextxy(44*x,7*y,”Scan  until  you  reach  two  numbers  "); 
outtextxy(44*x.8*y, "following  an  operation,  (i.e.  -  6  3)"); 
outtextxy(44*x,9*y,"Let  T  =  -,  a  =  6,  b  =  3,  by  the  rule"); 
outtextxy(44*x,10*y, "change  Tab  (i.e.  -  6  3)  with  aTb."); 
outtextxy(44*x,l  1  *y,"This  will  turn  -  6  3  into  (6  -  3)"); 
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outtextxy(44*x,12*y, "Replace  this  expression  in  the  Polish"); 

outtextxy(44*x,13*y, "notation  with  the  old  one."); 

Pause(30*x,24*y ); 

setcolor(backcolor); 

bar(3*x,39*y/2,52*x,23*y); 

bar(43*x,5*y.l79*x/2,18*y); 

bar(2P*x,23*y,70*x,49*y/2); 

setcolor(  forecolor); 

outtextxy(3*x,20*y,7  +  *(6-3)27  +  *-  5  14  8"); 


outtextxy(44*x,6*y,"Once  again  scan  from  left  to  right"); 
outtextxy(44*x,7*y, "until  you  reach  two  numbers  follow-"); 
outtextxy(44*x,8*y,"ing  an  operation.  This  time  T  =  *,  "); 
outtextxy(44*x,9*y,"a  =  (6  -  3)  (because  result  of  this"); 
outtextxy(44*x,10*y, "expression  is  another  number)  and"); 
outtextxy(44*x,l  l*y,"b  =  2;  apply  the  rule  and  change"); 
outtextxy(44*x,12*y,"T  a  b  (i.e.  (*  (6  -  3)  2  )  with  "); 
outtextxy(44*x,13*y,"a  T  b.  Consequently  we  will  have"); 
outtextxy(44*x,14*y,"  ((6  -3)  *  2)  "); 

outtextxy(44*x,15*y, "Replace  this  expression  in  the  Polish"); 
outtextxy(44*x,16*y, "notation  with  the  old  one."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x,39*y/2,52*x,23*y); 

bar(43*x,5*y,179*x/2,18*y); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,20*y,7+  ((6  -  3)  *  2)  7  +  *  -  5  1  4  8”); 

^**********************************************************4<********>ty 

outtextxy(44*x,6*y, "Again  scan  from  left  to  right  until"); 
outtextxy(44*x,7*y,"you  reach  two  numbers  following  an"); 
outtextxy(44*x,8*y, "operation.  This  time  T  =  +,  a=  ((6  -  3)"); 
outtextxy(44*x,9*y,"*  2)  (same  reasoning  that  we  did  for  "); 
outtextxy(44*x,10*y,"(6  -  3).  )  and  b  =  7;  apply  the  rule"); 
outtextxy(44*x,l  l*y,”and  change  Tab  (i.e  +  ((6  -  3)  *  2))"); 
outtextxy(44*x,12*y,"with  a  T  b.  Consequently  we  will  have"); 
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outtextxy(44*x,13*y,"  (((6 -3)  *  2)  +  7)  "); 

outtextxy(44*x,14*y, "Replace  this  expression  in  the  Polish"); 
outtextxy(44*x,15*y, "notation  with  the  old  one."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x,39*y/2,52*x,23*y); 

bar(43*x,5*y,179*x/2,18*y); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,2C*y,"/  (((6  -  3)  *  2)  +  7)  +  *  -  5  14  8"); 

/♦fr******************************************************************/ 

outtextxy(44*x,6*y, "Again  scan  from  left  to  right  until"); 
outtextxy(44*x,7*y,"you  reach  two  numbeis  following  an"); 
outtextxy(44*x,8*y, "operation.  This  time  T  =  a=  5  and"); 
outtextxy(44*x,9*y,"b  =  1,  (you  realized  that  we  skipped  "); 
outtextxy(44*x,10*y,"(((6  -  3)  *  2)  4-  7);  because  it  is  by"); 
outtextxy(44*x,l  l*y, "itself  a  number  and  is  followed  by  +"); 
outtextxy(44*x,12*y, "operation).  Now  we  will  apply  the  rule"); 
outtextxy(44*x,13*y,"and  change  Tab  (i.e  -  5  1)  with  aTb"); 
outtextxy(44*x,14*y,"Consequently  we  will  have  (5  -  1)  and  we"); 
outtextxy(44*x,15*y, "replace  this  expression  in  the  Polish"); 
outtextxy(44*x,16*y, "notation  with  the  old  one."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x,39*y/2,52*x,23*y); 

bar(43  *x,5  *y ,  1 79*x/2, 1 8*y ); 

bar(29*x.23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,20’,'y,'7  (((6  -  3)  *  2)  +  7)  +  *  (5  -  1)  4  8"); 

outtextxy(44*x,6*y,"Scan  from  left  to  right  until  you"); 
outtextxy(44*x,7*y, "reach  two  numbers  following  an  oper-"); 
outtextxy(44*x,8*y,"ation.  This  time  T  =  *,  a=  (5  -  1)  and"); 
outtextxy(44*x,9*y,"b  =  4. Now  we  will  apply  the  rule  and"); 
outtextxy(44*x,10*y, "change  Tab  (i.e  -  5  1)  with  a  T  b"); 
outtextxy(44*x,l  1  *y, "Consequently  we  will  have  ((5  -  1)  *  4)"); 
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outtextxy(44*x,12*y,"and  we  replace  this  expression  in  the”); 
outtextxv(44*x,13*y, "Polish  notation  with  the  old  one."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x,39*y/2,52*x,23*y); 

bar(43*x,5*y,179*x/2, 1 8*y); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,20*y,"/  (((6  -  3)  *  2)  +  7)  +  ((5  -  1)  *  4)  8"); 

outtextxy(44*x,6*y,"You  know  our  reasonings,  from  this  time"); 
outtextxy(44*x,7*y,"we  won’t  make  explanations  but  just  tell"); 
outtextxy(44*x,8*y,"what  T  ,  a  and  b  are. So,  this  time  T  =  *"); 
outtextxy(44*x,9*y,"a=  ((5  -  1)  *  4)  and  b  =  8."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x,39*v/2,52*x,23*y); 

bar(43*x,5*y,179*x/2,18*y); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,20*y,7  (((6  -  3)  *  2)  +  7)  (((5  - 1)  *  4)  *  8)”); 

j  *  *********************************************** ^^^^^k^******** *****  j 

outtextxy(44*x,6*y,"This  time  T  =  /  a  =  (((6  -  3)  *  2)  +  7)"); 
out:extxy(44*x,7*y,"and  b  =  (((5  -1)  *  4)  *  8)."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(3*x,39*y/2,52*x,23*y); 

bar(43*x,5*y,179*x/2,18*y); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x.20*y,"(((6  -  3)  *  2)  +  7)  /  (((5  -  1)  *  4)  *  8)"); 

j*  *******************************************************************J 

outtextxy(44*x,6*y,"As  you  see  since  there  is  no  operation  "); 
outtextxy(44*x,7*y, "which  is  followed  by  two  numbers.  This"); 
outtextxy(44*x,8*y, "means  we  are  done.  Actually  when  you  "); 
outtextxy(44*x,9*y, "examine  the  resultant  expression  you  will"); 
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ou!textxy(44*x,10*y,"see  that  it  is  what  we  started  with."); 
Pause(30*x,24*y); 

closegraph(); 

videoinit(), 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


exb7.c 

Atilla  BAKAN 
Apr.  16,  1990 
Apr.  17,  199u 


DESCRIPTION.  Seventh  example  about  binary  trees.  It  gives  an  examp’ j 
of  postorder  traversal. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Tuibo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <grapliics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(__ZTC_J  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#el  if  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#oefine  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_grapb_exit  (void); 
static  void  Pause  (int  i,  int  j ); 
static  void  register_drivers  (void); 
extern  void  set' ixt  (void); 

/*  tutorial  functions  */ 

static  void  graph  (void); 

^*  ******************************************************************** *^ 
/*  graphic  initialization  variables  */ 

*********************************************************************** 

i 

int  curr_rnode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcol  jr; 

int  x,  y,  MaxX,  MaxY; 


^*  ****  +  +  **********  +  +  ***********¥  If************************************!,  fj 

/*  Tliis  function  is  used  for  including  drivers  to  the  executable  code  */ 

/*******%**************************************************************/ 
static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
i/(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 
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/* 


**********************  **********%***%#************.«***>r*  *******>** 


+**! 


/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************y 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT ; 

/********************************************************************/ 
initgraph(& graphdriver, & graphmode ; 
graph_error  =  graphresult(); 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 


/******************************************************************** 
MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80: 
y  =  MaxY/25: 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAH1)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FlLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 


else  1 

setfillstyle(SOLlD_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kbiist; 

char  ch; 

setcolor(backcolor); 

bar(3+x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 

if(_mouse&MS_CURS)  mshidecur(); 

outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 

ch  =  getch  (); 

whUe  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  *y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y.69+x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  | 

case  'y':  closegraphQ; 
videoinit(); 
exit(O); 
break; 

case  ’Y':  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69’,,x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N':  setcolor(backcolor); 
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bar'(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default ;  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 

/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

I 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 

I* * ** ***************** ***** *** ********* **** ******** ***************** ***/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

^********************3*******************************************:*******/ 

void  Pause(i,j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE  . .«<"); 
if( waitkey ( )==ESC)  confirm_graph_exit(); 

I 

^* ******************************************************************** *y< 

/*  main  routine  calls  graph  routine  */ 

^**********************************************************************^ 
void  maiu() 

I 

graph! ); 

I 
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y**********************************************************************/ 


/*  This  routine  gives  an  example  of  postorder  traversal.  */ 

y**********************************************************************^ 


void  graph(void) 


y*******************************************************************:^ 


init_graph(); 

setcolor(forecolor); 


bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/8); 
outtextxy(38*x,y/2,"EXAMPLE  4-5-7"); 

y*********************************it(:(«*’(<****‘t<**i<*’t'***’t'**’t<’t<*********’l'*>t'*y 


outtextxy(2*x,2*y,”To  make  you  able  to  compare  the  result  we  will  use  the  result, 
we  will  again"); 

outtextxy(2*x,3*y,"use  the  same  expression  and  apply  the  algorithm  on  them.  And 
as  we  did  before"); 

outtextxy(2*x.4*y,"as  we  visit  each  vertex  we  will  keep  the  postorder  list  for  you 
to  follow."); 

y*******************************************************************^ 


pieslice(27*x,5*y,0,359,2);  /*  H  */ 
pieslice(.17*x,7*y,0,359,2);  /*  F  */ 

pieslice(37*x.7*y,0,359,2);  /*  N  */ 

moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 
outtextxy(27*x,9*y/2,"H"); 
outtextxy(15*x,7*y,”F"); 
outtextxy(39*x,7*y,"N"); 
pieslice(12*x,9*y,0,359,2);  /*  D  */ 

pieslice(22*x,9*y,0,359,2);  /*  G  */ 

pieslice(32*x,9*y,0,359,2);  /*  L  */ 

pieslice(42*x.9*y ,0,359,2);  /*  O  */ 
moveto(12*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 
moveto(32*x,9*y);  lineto(37*x,7*y);  lineto(42*x,9*y); 
outtextxy(10*x,9*y,"D"); 
outtextxy(22*x,19*y/2,"G"); 
outtextxy(30*x,9*y,"L"); 
outtextxy(42*x,l9*y/2,"0"); 
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pieslice(7*x,ll*y,0,359,2);  /*  B  */ 

pieslice(17*x,l  l*y,0,359,2);  /*  E  */ 

pieslice(27*x,  1 1  *y  ,0,359,2);  /*  J  */ 

pieslice(37*x,l  l*y,0,359,2);  /*  M  */ 

moveto(7*x,l l*y);  lineto(12*x,9*y);  lineto(17*x,l  l*y); 

moveto(27*x,ll*y);  lineto(32*x,9*y);  lineto(37*x,l  l*y); 

outtextxy(5*x,ll*y,"B"); 

outtextxy(  1 7*x,23  *y/2,"E" ' 

outtextxy(24*x,l  l*y,"J"); 

outtextxy  (37 *x,23 *y/2,"M" ); 

pieslice(2*x,13*y  ,0,359,2);  /*  A  */ 

pieslice(  1 2*x,  1 3 *y  ,0,359,2);  /*  C  */ 

pieslice(22*x,13*y,0,359,2);  /*  1  */ 

pieslice(32*x,  1 3*y ,0,359,2);  /*  K  */ 

moveto(2*x,13*y);  lineto(7*x,l  l*y);  lineto(12*x,13*y); 

moveto(22*x,13*y);  lineto(27*x,l  l*y);  lineto(32*x,13*y); 

outtextxy(2*x,27*y/2,"A"); 

outtextxy(12*x,27*y/2,"C"); 

outtextxy(22*x,27*y/2,"I" ); 

outtextxy(32*x,27*y/2,"K"); 

outtextxy(44*x,5*y,"Step  by  step  Postorder  Traversal”); 
moveto(43*x,l  l*y/2);  lineto(89*x,l  l*y/2); 
outtextxy(3*x,29*y/2, ’’Postorder  Listing”); 
moveto(2*x,l5*y);  lineto(40*x,15*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

setlinestyle(3,0,l); 

y+****+++***++**+++***+************+****+******************+****++**+y 

outtextxy(44*x,6*y,"We  will  start  out  traversal  by  visiting"); 
outtextxy(44*x,7*y,"left  subtree  (roote  by  F),  since  there"); 
outtextxy(44*x,8*y,"is  one  we  will  apply  postorder  traversal"); 
outtextxy(44*x,9*y,"Once  again  since  F  has  a  left  subtree"); 
outtextxy(44*x,10*y, "rooted  by  D,  we  will  apply  postorder  "); 
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outtextxy(44*x,l  l*y, "traversal  and  go  to  B.  B  too,  has  left"); 
outtextxy(44*x,12*y, "subtree,  so  we  will  apply  the  algorithm"); 
outtextxy(44*x,13*y,"once  again.  Since  A  is  a  terminal  node"); 
outtextxy(44*x,14*y,"it  does  not  have  neither  left  nor  right"); 
outtextxy(44*x,15*y, "child  (in  other  word  it  is  the  root  of'); 
outtextxy(44*x,16*y,"its  own)  we  will  visit  A"); 
outtextxy(3*x,16*y,"A"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcoIor(  forecolor); 

moveto(44*x,33*y/2);  lineto(89*x,33*y/2); 

/* ***********%***********************%*****%*****%******%************/ 
outtextxy(44*x,17*y,"Now  we  go  to  the  right  subtree  of  B  and"); 
outtextxy(44*x,18*y,"start  traversal  again.This  time  we  will"); 
outtextxy(44*x,19*y,"go  to  C.  C  does  not  have  children  we"); 
outtextxy(44*x,20*y,"will  visit  C."); 
outtextxy(5*x,16*y,"C"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 


moveto(44*x,41*y/2);  lineto(89*x,41*y/2); 

outtextxy(44*x,21*y,"Next  we  will  go  to  the  root  B  and  since"); 
outtextxy(44*x,22*y, "visited  its  left  &  right  child  we  will"); 
outtextxy(44*x,23*y, "visit  B"); 
outtextxy(7*x,16’ky,"B”); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43  *x,23  *y/4, 1 79*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(44*x,6*y,"We  completed  traversal  of  left  subtree"); 
outtextxy(44’|,x,7*y,"of  D  we  will  got  its  right  subtree,  E"); 
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outtextxy(44*x,8*y, "Since  E  is  a  terminal  node  we’ll  visit  E"); 
outtextxy(9*x,16*y,"E"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
se  tcolor(forecolor) ; 

moveto(4-t*x,17*y/2);  lineto(89*x,17*y/2); 

y^fr*** ***-************************************************************/ 

outtextxy(44*x,9*y,"We  now  will  visit  root  D  since  we  comp-"); 
outtextxy(44*x,10*y,"leted  traversal  of  its  subtrees."); 
outtextxy(l  l*x,16*y,"D"); 

Pause(30*x,24*y); 
setc  jlor(backcolor); 
bar(29*x,23*y,70*x,49*y/2'); 
setcolor(forecolor); 

moveto(44*x,2 1  *y/2);  lineto(89*x,2 1  *y/2); 

/********************************************************************y 

outtextxy(44*x,ll*y, "Consequently,  we  next  begin  the  traver-"); 
outtextxy(44*x,12*y,"sal  of  the  right  subtree  of  F.As  you  see"); 
outtextxy(44*x,13*y,"this  subtree  consists  only  of  the  ver-"); 
outtextxy(44*x,14*y,"tex  G.  So  we  will  visit  G  and  put  it"); 
outtextxy(44*x,15*y,"into  our  list."); 
outtextxy(13*x,16*y,"G"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor) ; 

moveto(44*x,3 1  *y/2);  lineto(89*x,3 1  *y/2); 

^******!('*>tt***************j(t****S)t********)|t********!)<********************^ 

outtextxy(44*x,16*y,"We  now  will  visit  root  F  since  we  comp-”); 
outtextxy(44*x,17*y,”ltted  traversal  of  its  subtrees.”); 
cuttextxy(  1 5*x,  1 6*y,"FM); 

Pause(30*x,24,(ty); 

sctcolor(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 
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setcolor(forecolor); 


'As  you  notice  we  have  completed  "); 
'the  traversal  of  the  left  subtree"); 

'of  the  root  H.  So  now  we  will  start"); 
'traversal  of  right  subtree  of  H."); 

,"to  do  that  we  will  go  to  root  N  and"); 
,"go  to  the  left  subtree  of  N  and  "); 
/'begin  another  postorder  traversal."); 
/'this  traversal  will  take  us  down"); 
/'to  the  terminal  node  I.  So  we  will"); 
/'visit  I."); 

,"i "); 


outtextxy(44*x,6*y/ 
outtextxy(44*x,7*y/ 
outtextxy(44*x,8*y/ 
outtextxy(44*x,9*y/ 
outtextxy  (44  *x ,  1 0*y 
outtextxy(44*x,l  l*y 
outtextxy(44*x,12*y 
outtextxy(44*x,  1 3*y 
outtextxy  (44  *x ,  1 4  *y 
outtextxy  (44  *x,  1 5  *y 
outtextxy  ( 1 7  *x ,  1 6*y 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23  *y  ,70*x,49*y/2); 
setcolor(forecolor); 

moveto(44*x,3 1  *y/2);  lineto(89*x,3 1  *y/2); 

^^,*^^* ************************************************************** i 


outtextxy(44*x,16*y,"We  now  go  to  the  right  subtree  of’); 
outtextxy(44*x,17*y,"root  J.  Right  subtree  of  J  contains"); 
outtextxy(44*x,18*y,"only  the  vertex  K,  so  we’ll  visit  K"); 
outtextxy!  19*x,16*y,"K"); 

Pause(30*x,24*y); 
setcolor(backcolor ) ; 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 

moveto(44*x.37*y/2);  lineto(89*x,37*y/2); 


outtextxy(44*x,19*y,"We  now  will  visit  root  J  since  we  comp-"); 
outtextxy(44*x,20*y,"leted  traversal  of  its  subtrees."); 
outtextxy(21*x,16*y,"J"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 
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setcolor(forecolor); 

y************************************************************-********/ 

outtextxy(44*x,6*y, "Consequently,  we  next  begin  the  traver-"); 
outtextxy(44*x,7*y,"sal  of  the  right  subtree  of  L.As  you  see"); 
outtextxy(44*x,8*y,"this  subtree  consists  only  of  the  ver-"); 
outtextxy(44*x,9*y,"tex  M.  So  we  will  visit  M  "); 
outtextxy(23*x,16*y,"M"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor ) ; 

moveto(44*x,  1 9*y/2);  lineto(89*x,  1 9*y/2); 

outtextxy(44*x,10*y,"We  now  will  visit  root  L  since  we  comp-"); 
outtextxy(44*x,l  l*y,"leted  traversal  of  its  subtrees."); 
outtextxy(25*x,16*y,"L"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,23*y/2);  lineto(89*x,23*y/2); 

outtextxy(44*x,12*y,"We  next  begin  the  traversal  of  right"); 
outtextxy(44*x,13*y, "subtree  of  root  N.  As  you  see  this  "); 
outtextxy(44*x,14*y, "subtree  consists  only  of  the  vertex"); 
outtextxy(44*x,15*y,"0.  So  we  will  visit  O  and  put  it"); 
outtextxy(44*x,16*y,"into  our  list."); 
outtextxy(27*x,16*y,"0"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,33*y/2);  lineto(89*x,33*y/2); 

^***************%*******>t<*>(<>tt**i('>t<*i(<***+***j(<********>i<*>t<>(<***>t<**>('*****>('**^ 

outtextxy(44*x,17*y,"We  now  will  visit  root  N  since  we  comp-"); 
outtextxy(44*x,18*y,"leted  traversal  of  its  subtrees."); 
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outtextxy(29*x,16*y,"N"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(  forecolor); 

moveto(44*x,37*y/2);  lineto(89*x,37*y/2); 

/* *********+********************************+****+*******************/ 
outtextxy(44*x,19*y,"This  last  visit  completed  the  traversals"); 
outtextxy(44*x,20*y,"of  the  left  and  right  subtrees  of  root"); 
outtextxy(44*x,21*y,"H.  So  now  we  will  finally  visit  the  root  "); 
outtextxy(44*x,22*y,”H.  This  will  complete  our  postorder  tra-"); 
outtextxy(44*x,23*y,"versal  of  the  binary  tree."); 
outtextxy(3 1  *x,l  6*y  ,"HM); 

I**** t****************************************************************/ 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM  :  exb8.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16,  1990 

REVISED  :  Apr.  17, 1990 

DESCRIPTION  :  Eighth  example  about  binary  trees.  ,It  gives  an  example  of 
postorder  traversal. 


MACHINE/COMPTLER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

V 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#inciude  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined! _ TURB  OC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

# include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findftrst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 
#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 


/*  tutorial  functions  */ 
static  void  graph  (void); 


/*  graphic  initialization  variables  */ 

/**********************************************************************/ 


int  currmode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/********************************************:''******************ik*****>{y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 


/ 


l********************************************************************** 


/ 


/*  This  faction  initializes  the  necessary  graphical  routines  */ 

/******+***********************+*****++***+*****+*****************+****/' 
static  void  init_graph(void) 


int  xasp.  yasp; 


register_drivers(); 
grapndriver  =  DETECT ; 

initgraph(&graphdriver  ,&graphmode ,  ”  ” ); 
graph_error  =  graphresult(); 

y*  ***********%**************************%*********************%%***** 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

) 

/ft*****)!**************************** >******************************** 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((grapfanode  ==  CGAHI)  II  (graplunode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (grapfanode  ==  MCGAHI)  II  (grapfanode  —  ATT400HI))  { 
setfillstyle(SOLID_FlLL,BLACK); 
backcolor  =  BLACK; 
quitcoLr  =  WHITE; 


else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 


forecolor  =  WHITE. 
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/**********:  i***************************************************:,******/ 

static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(  3  *x/2,23  *y ,  1 79*x/2,97  *y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y')  II  (ch  ==  'n')  II  (ch  ==  Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quttcolor); 

) 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O), 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bai(4tx/3.23:,'y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4 ); 
setcolor(forecolor); 
break; 

case  ’N  ':  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y  ,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 


} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 

^★♦♦♦♦♦♦★"tt*************************************************************/ 

/*  Tli is  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

I 

settextstyle(0.0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DlR,CENTER_TEXT); 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


void  Pause(i  j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<«"); 
if(waitkey()=ESC)  confirm_graph_exit(); 


/*  main  routine  calls  graph  routine  */ 

void  niainf) 


( 


graph(); 
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/*  This  routine  gives  an  example  of  postorder  traversal.  */ 

/*  *  *  %  *  *  *  *  *******  *  *  ****  **  *  *  **  *  *  *******  *  ** * **  *  *  *********  *  *  *  *  *  *  *  *  ****  *****  / 
void  graph(void) 

I 

/ft*******************************************************************/ 


init_graph(); 
setcolor(  forecolor) ; 
bar(0,0,MaxX.MaxY); 
rectangle(x,y,MaxX-x,MaxY-y/8); 
outtextxy(38*x,y/2, "EXAMPLE  4-5-8"); 

^******************************************************************** 


outtextxy(2*x,2*y,"To  make  you  able  to  compare  the  result  we  will  use  the  result, 
we  will  again”); 

outtcxtxy(2*x,3*y,"use  the  same  expression  and  apply  the  algorithm  on  them.  And 
as  we  did  before"); 

outtextxy(2*x,4*y,"as  we  visit  each  vertex  we  will  keep  the  postorder  list  for  you 
to  follow."); 

/******** ****** ************************** ************************ ****/ 

pies(ice(27*x,5*y  ,0,359,2);  /*  G  */ 

pieslice(17*x,7*y,0,359,2);  /*  D  */ 

pieslice(37*x,7*y,0,359,2);  /*  H  */ 

moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 

outtextxy(27*x,9*y/2,"G"); 

outtextxy(15*x,7*y,"D"); 

outtextxy(39*x,7*y,"H"); 

pieslice(  1 2*x,9*y ,0,359,2);  /*  C  */ 

pieslice(22*x,9*y, 0,359,2);  /*  E  */ 

moveto(12*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 

outtextxy(  1 0*x,9*y,"C"); 

outtextxy(22*x,19*y/2,"E"); 

pieslice(7*x,l  1  *y ,0,359, 2);  /*  A  */ 

pieslice(18*x,ll*y,0,359,2);  /*  F  */ 

moveto(7*x,l  1  *y);  lineto(12*x,9*y); 

moveto(22*x,9*y);  lineto(18*x,l  1  *y); 

outtextxy(5*x.l  1  *y,”A"); 
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outtextxy(  1 8  *x,23  *y/2,"F"); 
pieslice(12*x,13*y,0,359,2);  /*  B  */ 
moveto(7*x,li*y);  lineto(12*x,13*y); 
outtextxy(  1 2*x,27*y/2,"B"); 

y********************************************************************/ 

outtextxy(44*x,5*y,"Step  by  step  Postorder  Traversal"); 
moveto(43 *x,  1 1  *y/2);  lineto(89*x,  1 1  *y/2); 
outtextxy(3*x,29*y/2, "Postorder  Listing"); 
moveto(2*x,15*y);  lineto(40*x,15*y); 
outtextxy(30*x,24*y, "PRESS  ANY  KEY  TO  CONTINUE..."); 
while(kbhit() )  getch(); 
getch(); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

setlinestyle(3,0,l); 


outtextxy(44*x,6*y,"We  will  start  out  traversal  by  visiting"); 
outtextxy(44*x,7*y,"left  subtree  (roote  by  D),  since  there"); 
outtextxy(44*x,8*y,"is  a  one  we  will  apply  postorder  traver-"); 
outtextxy(44*x,9*y, "sal. Once  again  since  D  has  left  subtree"); 
outtextxy(44*x,10*y, "rooted  by  C,  we  will  apply  postorder  ”); 
outtextxy(44*x,l  1  *y, "traversal  and  go  to  C.  C  too,  has  a  left"); 
outtextxy(44*x,12*y  ."subtree,  so  we  will  apply  the  algorithm"); 
outtextxy(44*x,13*y,"once  again.  We  will  go  to  A.  A  does  not"); 
outtextxy(44*x,14*y,"left  subtree  but  it  has  a  right  subtree"); 
outtextxy(44*x,15*y, "(contains  only  one  vertex)  B.  So  we  will"); 
outtextxy(44*x,16*y,"go  to  B  since  it  does  not  have  any  child"); 
outtextxy(44*x,17*y,"we  will  visit  B."); 
outtextxy(3*x,16*y,"B”); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,35*y/2);  lineto(89*x,35*y/2); 

y******************************************************************** 
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outtextxy(44*x,18*y,"This  will  complete  the  travesals  of  A’s  "); 
outtextxy(44*x,19*y, "subtrees.  So,  we  will  visit  A"); 
outtextxy(5*x,16*y,"A"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

/************************************************************>*******/ 
outtextxy(44*x,6*y,"This  also  completed  the  traversal  of  C’s"); 
outtextxy(44*x,7*y,"left  subtree. Since  C  does  not  have  right"); 
outtextxy(44*x,8*y, "subtree  we  will  visit  root  C  this  time"); 
outtextxy(44*x,9*y,"and  put  it  in  the  list."); 
outtextxy(7*x,16*y,"C"); 

Pause(30*x,24*y); 

setcoloi(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,19*y/2);  lineto(89*x,19*y/2); 

/** ***************************** *************************************y 

outtextxy(44*x,lO*y,"Now  we  will  go  to  the  right  subtree  of  D"); 
outtextxy(44*x,l  1  *y,"tliis  time,  and  start  traversal  from  this"); 
outtextxy(44*x,12*y, "point  and  go  to  left  subtree  of  E  and"); 
outtextxy(44*x,13*y, "start  postorder  traversal  again.  We  will"); 
outtextxy(44*x,14*y,"go  to  vertex  F,  since  it  is  a  terminal"); 
outtextxy(44*x,15*y /'vertex,  we  will  visit  it."); 
outtextxy(9*x,  1 6*y  ,"F" ); 

Pause(30*x,24*y); 
se  tcol  or(  backcolor ); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,3 1  *y/2);  lineto(89*x,3 1  *y/2); 

I* ********************* **********************************************/ 

outtextxy(44*x,16*y,”This  also  completed  the  traversal  of  E’s"); 
outtextxy(44*x,I7*y,”left  subtree. Since  E  does  not  have  right"); 
outtextxy(44*x,18*y, "subtree  we  will  visit  root  E  this  time"); 
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outtextxy(44*x,19*y,"and  put  it  in  the  list."); 
outtextxy(l  l*x,16*y,"E"); 

Pause(30*x,24*y); 

setcolor(backcolpr); 

bar(29*x,23*y,70*x,49*y/2); 

setcoloitfore^oloC; 

moveto(44*x,39*y/2);  lineto(89*x,39*y/2); 
/*************************************************************** <**♦**/ 
outtextxy(44*x,20*y,"We  now  will  visit  root  D  since  we  comp-"); 
outtextxy(44*x,21*y,"leted  traversal  of  its  subtrees."); 
outtextxy(  1 3*x,  1 6*y,"D"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

/********************************************+***********************/ 
outtextxy(44*x,6*y  ."Consequently,  we  next  begin  the  traver-”); 
outtextxy(44*x,7*y,"sal  of  the  right  subtree  of  G.As  you  see"); 
outtextxy(44*x,8*y,"this  subtree  consists  only  of  the  ver-"); 
outtextxy(44*x,9*y,"tex  H.  So  we  will  visit  H  and  put  it"); 
outtextxy(44*x,10*y,"into  our  list."); 
outtextxy(15*x,16*y,"H"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,21*y/2);  lineto(89*x,21*y/2); 

/***  +  +  +***  + ******************************************************,1,***^ 

outtextxy(44*x,ll*y,"This  last  visit  completed  the  traversal"); 
outtextxy(44*x,12*y,"of  the  left  and  right  subtrees  of  root"); 
outtextxy(44*x,13*y,"G.  Visiting  this  vertex  will  complete"); 
outtextxy(44*x,14*y,"the  postorder  traversal  of  the  entire"); 
outtextxy(44*x,15*y,"binary  tree."); 
outtextxy(  17*x,16*y,"G"); 


Pause(30*x,24*y); 

closegraph(); 

videoinit(); 

I 
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/*  PROGRAM  :  exb9.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  16,  1990 

REVISED  :  Apr.  17,  1990 

DESCRIPTION  :  Ninth  example  about  binary  trees.  It  gives  an  exanple  of 
inorder  traversal. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 
C  compiler  Version  2.0. 

V 

/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlmou.h" 

#include  "cxlkey.h" 

#if  defined(_TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(MJ86)  &&  !defined(_ZTC__)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffbik  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffbik  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 

static  void  graph  (void); 

^* *************************** a*****************************************/ 
/*  graphic  initialization  variables  */ 

/**********************************************************************/ 
int  currjnode; 
int  graphdriver; 
int  graplunode; 
int  graph_error; 
int  backcolor; 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY ; 


^*  *********************************************************************/ 
/*  This  function  ;s  used  for  including  drivers  to  the  executable  code  .  */ 

*********************************************************************/ 
static  void  regisier_drivers(void) 

I 

if(registerbgidiiver(CGA_driver)  <  0)  exit(l); 
if(registerbgidiiver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

I 
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^* *******+***********************♦****%***********************++*******/ 
/*  This  fiiction  initializes  the  necessary  graphical  routines  */ 

/*************  +  +  ********  +  +  ****:4<******  +  *  +  *  +  **;4<:4,  +  ****************  +  4,***4,  +  ,|y 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/********************************************************************/ 
in  itgraph(&  graphdriver  ,&graphmode , "  " ) ; 

graph_error  =  graphresult(); 

¥¥  +  ¥*¥  +  ¥¥¥  +  ¥¥*¥*  +  ¥¥¥¥*¥*¥*¥¥¥¥¥¥¥  +  ¥¥*¥¥¥*¥¥¥¥*  +  **¥  +  ¥  +  ¥¥¥¥¥¥*  +  ¥¥¥¥¥ 
if(graph_error  <  0)  { 
puts(grapherrormsg(graph_error)); 
exit(l); 

} 

/+* *******************%*************%*****,(,**** ¥¥**¥****¥*¥*★** ******/ 

MaxX  =  getmaxxQ; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25; 
settext(); 

if  ((graplimode  ==  CGAHI)  I!  (graphmode  =~  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FlLL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

I 

forecolor  =  WHITE; 

1 
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^****** *************************************************** *************/ 


static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’»)  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y )  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bai(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switcli  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’;  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 


hidecurQ; 

if(_mouse&MS_  CURS)  msshowcur(); 
chgoukey(kblist);  /*  restore  any  hidden  hot  keys  */ 


} 

/**********************************************************************^ 
/*  Tliis  function  sets  the  text  default  values  */ 

^* *********************************************************************/ 
static  void  settext(void) 

( 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZDIR,CEKTER_TEXT); 

} 

y ********************************************************************* 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


void  Pause(ij) 
int  i,  j; 


settextO; 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 


/* 


********************************************************************* 


/ 


/*  main  routine  calls  graph  routine  */ 

/***************************> ***************************************** f 

void  main( ) 


graph( ); 

) 
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/*  This  routine  gives  an  example  of  inorder  traversal.  */ 

/**********************************************************************/ 
void  graph(void) 

I 

/+*********+***************+*********+**+****************************/ 


init_graph(); 
setcolor(  forecolor); 


bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/8); 
outtextxy(38*x,y/2, "EXAMPLE  4-5-9"); 

/**********************%***%%***********************************%****/ 


outtextxy(2*x,2*y,"To  make  you  able  to  compare  the  result  we  will  use  the  result, 
we  will  again"); 

outtextxy(2*x,3*y,"use  the  same  expression  and  apply  the  algoritlun  on  them.  And 
as  we  did  before"); 

outtextxy(2*x,4*y,"as  we  visit  each  vertex  we  will  keep  the  inorder  list  for  you  to 
follow."); 

pieslice(27*x,5*y,0,359,2);  /*  H  */ 
pieslice(17*x,7*y, 0,359,2);  /*  F  */ 

pieslice(37*x,7*y  ,0,359,2);  /*  N  */ 
moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 
outtextxy(27*x,9*y/2,"H"); 
outtextxy(15*x,7*y,"F"); 
outtextxy(39*x,7*y,"N"); 
pieslice(12*x,9*y, 0,359,2);  /*  D  */ 
pieslice(22*x,9*y,0,359,2);  /*  G  */ 

pieslice(32*x,9*y,0,359,2);  /*  L  */ 
pieslice(42*x.9*y, 0,359,2);  /*  O  */ 
moveto(12*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 
moveto(32*x,9*y);  lineto(37*x,7*y);  lineto(42*x,9*y); 
outtextxy(  1 0*x,9*y  ,”D"); 
outtextxy(22*x,19*y/2,"G"); 
outtextxy(30*x,9*y,"L"); 
outtextxy(42*x,19*y/2,"0"); 
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pieslice(7*x,l  l*y  ,0,359,2); 
pieslice(17*x,l  l*y,0,359,2) 
pieslice(27*x,l  l*y, 0,359.2) 
pieslice(37*x,l  l*y,0,359,2) 


/*  B  */ 
/*  E  */ 
/*  J  */ 
/*  M  */ 


moveto(7*x,ll*y);  lineto(12*x,9*y);  lineto(17*x,ll*y); 
moveto(27*x,ll*y);  Iineto(32*x,9*y);  lineto(37*x,ll*y); 
outtextxy  (5  *x ,  1 1  *y ,  "B  " ); 
outtextxy  ( 1 7  *x,23  *y/2,"  E" ); 
outtextxy(24*x,l  l*y,"J"); 
outtextxy(37*x,23*y/2,"M"); 
pieslice(2*x,  1 3  *y  ,0,359,2); 
pieslice(  1 2*x,  1 3*y,0,359,2); 


pieslice(22*x,13*y, 0,359,2) 
pieslice(32*x,13*y,0,359,2) 


/*  A*/ 

/*C*/ 

1*1*1 
/*  K  */ 

moveto(2*x,13*y);  lineto(7*x,l  l*y);  nneto(12*x,13*y); 

moveto(22*x,13*y);  lineto(27*x,ll*y);  lineto(32*x,13*y); 

outtextxy(2*x.27*y/2,"A"); 

outtextxy(  1 2*x,21  *y/2,"C" ); 

outtextxy(22*x,27*y/2,"l"); 

outtextxy(32*x,27*y/2,”K”); 

/********************************************************************/ 

outtextxy(44*x,5*y,"Step  by  step  Inorder  Traversal"); 

moveto(43*x,l  l*y/2);  linetv  39*x,ll*y/2); 

outtextxy(3*x,29*y/2,  'Inorder  Listing"); 

mo  veto(  2  *x ,  1 5  *y ) ;  line to(40 *x ,  1 5  *y ); 

Pause(30*x,24*y); 

setcoIor(backcoIor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

setlinestyle(3,0,l); 

/*********************************************************************/ 
outtextxy(44*x,6*y,"We  will  start  out  traversal  by  visiting"); 
outtextxy(44*x,7*y,"left  subtree  (roote  by  F),  since  there"); 
outtextxy(44*x,8*y,"is  one  we  will  apply  inorder  traversal"); 
outtextxy(44*x,9*y,"Once  again  since  F  has  a  left  subtree"); 
outtextxy(44*x,10*y ."rooted  by  D,  we  will  apply  inorder  "); 
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outtextxy(44*x,l  l*y, "traversal  and  go  to  B.  B  too,  has  left"); 
outtextxy(44*x,12*y, "subtree,  so  we  will  apply  the  algorithm"); 
outtextxyt44*x,13*y,"once  again.  Since  A  is  a  tenninal  node"); 
outtextxy(44*x,14*y,"it  does  not  have  neither  left  nor  right"); 
outtextxy(44*x,15*y, "child  (in  other  word  it  is  the  root  of’); 
outtextxy(44*x,16*y,"its  own)  we  will  visit  A"); 
o  ittextxy(3 *x ,  1 6*y ," A" ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,33*y/2);  lineto(89*x.33*y/2); 

outtextxy(44*x.l7*y,"Now  we  will  visit  root  B."); 
outtextxy(f*x.l6*y,"B" ); 

Pause(30*x.24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x.35*y/2);  lineto(89*x,35*y/2); 

outtextxy(44*x,l8*y,"Next  wc  will  go  to  the  right  child  of  B"); 
outtextxy(44*x,19*y, "which  is  C  and  visit  it."); 
outtextxy(7*x,16*y,"C  ); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x.39*y/2);  lineto(89*x,39*y/2); 

/*************************  It*  fr***************************************/ 

outtextxy(44*x,20*y,"We  completed  traversal  of  left  subtree”); 
outtextxy(44*x,21*y,”of  D  so  we  will  D  now."); 
outtextxy(9*x,  1 6*y  ,"D"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*v,70*x,49*y/2); 
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setcolor(forecolor); 


moveto(44*x  ,43  *y/2) ;  lineto(89*x  ,43  *y/2) ; 


^Jk*****************************************  ********  ************^*****^ 


outtexfxy(44*x,22*y,"We  now  will  visit  right  child  of  D"); 
outtextxy!l  l*x,16*y,"E"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,45*y/2);  lineto(89*x,45*y/2); 

/********************************************************************/ 
outtextxy(44*x,23*y, "Consequently,  we  next  visit  root  F."); 
outtextxy  ( 1 3  *x ,  1 6*y  ,"F" ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43  *x,23  *y/4, 1 79*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy!44*x,6*y,"We  now  will  visit  right  subtree  of  F"); 
outtextxy(44*x,7*y, "which  is  G."); 
outtextxy!15*x,16*y,"G"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x ,  1 5 *y/2);  lineto(89 *x ,  1 5 *y/2); 

^***+**+************ +***+★*+ ★+**+***+**♦**♦★*****  **  ******+**********+ J 

outtextxy(44*x,8*y,”As  you  notice  we  have  completed  "); 
outtextxy(44*x,9*y,"the  traversal  of  the  left  subtree’’); 
outtextxy(44*x,10*y,"of  the  root  H.  So  now  we  will  visit"); 
outtextxy!44*x,l  l*y,"the  root  H  according  to  the  algorithm."); 
outtextxy!  1 7*x,l  6*y,"H"); 

Pause(30*x,24*y); 

setcolor!backcolor); 

bar(29*x,23*y,70*x,49*y/2); 
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setcolor(forecolor); 

moveto(44*x,23*y/2);  lineto(89*x,23*y/2); 

/******  ****  I**********  **  I********  +  *  l********  **  ****  ******  l****************/ 

outtextxy(44*x,12*y,"We  now  go  to  the  right  subtree  of); 
outtextxy(44*x,13*y,"root  H.  By  following  the  algoritlun"); 


outtextxy(44*x,14*y,"we  will  go  down  to  the  terminal  node"); 
outtextxy(44*x,15*y,"I.  Since  we  cannot  go  any  further  we"); 
outtextxy(44*x,16*y,"will  visit  I.  '); 


outtextxy(19*x,16*y,"I"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,33*y/2);  lineto(89*x,33*y/2); 

y********************************************************************^ 

outtextxy(44*x,17*y,"We  now  will  visit  root  J."); 
outtextxy(21  *x,16*y,"J"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,35*y/2);  lineto(89*x,35*y/2); 

yf*******************************,l<****l|<***,|o|,,|,J|,1|<Jt,l((l(<l)<j(<)(<))<;4<j((,)<*,(,j)<j)<l)<,)<l(<:(<l(<)(,,|<,(<,(y 

outtextxy(44*x,18*y, "Consequently,  we  next  begin  the  traver-"); 
outtextxy(44*x,19*y,"sal  of  the  right  subtree  of  J.As  you  see"); 
outtextxy(44*x,20*y,"this  subtree  consists  only  of  the  ver-"); 
outtextxy(44*x,21*y,"tex  K.  So  we  will  visit  K.  "); 
outtextxy(23*x,16*y,"K"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,43*y/2);  lineto(89*x,43*y/2); 

^*  *******************************************************************/ 


outtextxy(44*x,22*y,”We  now  will  visit  root  L  ."); 
outtextxy(25*x,16*y,"L”); 
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Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43  *x,23  *y/4, 1 79*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

/I********************************************************************/ 

outtextxy(44*x,6*y,"We  next  begin  the  traversal  of  right"); 
outtextxy(44*x,7*y, "subtree  of  root  L.  As  you  see  this  "); 
outtextxy(44*x,8*y  ."subtree  consists  only  of  the  vertex"); 
outtextxy(44*x,9+y,"M.  So  we  will  visit  M  and  put  it"); 
outtextxy(44*x,10*y,"into  our  list."); 
outtextxy(27  *x,  1 6*y  ,"M" ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44  *x  ,2 1  *y/2) ;  lineto(89*x  ,2 1  *y/2); 

outtextxy(44*x,l  l*y,"We  now  will  visit  root  N."); 
outtextxy(29*x,  1 6*y,"N"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,23*y/2);  lineto(89*x,23*y/2); 

^*  ************************************  +  *  l*****************************^ 

outtextxy(44*x,12*y, "According  to  the  algorithm  we  now  will"); 
outtextxy(44*x,l  3*y, "visit  right  subtree  of  root  N,  O.  This"); 
outtextxy(44*x,14*y,"will  complete  our  inorder  traversal"); 
outtextxy(44*x,15*y,"of  the  binary  tree."); 
outtextxy(3  l*x,16*y,"0"); 

/********************************************************+******■*****/ 

Pause(30*x,24*y); 

cIosegraph(); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  exblO.c 
:  Atilla  BAKAN 
:  Apr.  16,  1990 
:  Apr.  17,  1990 


DESCRIPTION  :  Tenth  example  about  binary  trees.  It  gives  an  example  of 
inorder  traversal. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*1 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlmou.h" 
#include  "cxlkey.h" 


#if  defined(__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M J86)  &&  ! defined (_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  fuid_t 

#define  ff_name  name 

#elif  defined(_ZTC_)  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  graph  (void); 


/ft*********************************************************************/ 

f*  graphic  initialization  variables  */ 

^********i(>**+iti*^i****j(t+*<i***i(<*****i(i%********i(<********>(t********+*i(<**i(i*i(t*i(<^ 

int  curr_mode; 

int  graphdriver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


*******  +  **  +  *****+*+*****+++*******+*++***++********++*+++++***  +  '»<+**++/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 


static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_diiver)  <  0)  exit(l); 

) 
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/a*********************************************************************/ 

/*  This  faction  initializes  the  necessary  grapliical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 


int  xasp,  yasp; 


iegister_drivers( ) ; 
graphdriver  =  DETECT; 

/tit********  *******************************  *************  **************/ 


initgraph(&  graphdriver  ,&  graphmode ; 
graph_error  =  grapliresult(); 


if(graph_error  <  0)  ( 

puts(grapherronnsg(graph_error)>; 

exit(l); 


^* *******************************************************************/ 


MaxX  =  getmaxxQ; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  —  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graplimode  ==  ATT400H1))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 


else  { 

setfiilstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 
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/***********************************************************%*********!iy 

static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

wliile  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  ( 

case  ’y  ’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3 ,23  *y  ,30*x,97 *y/4); 
bar(3 1  *x,23*y  ,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgoukey(kblist);  /*  restore  any  hidden  hot  keys  */ 


j*  if  ******************************************************  j 


/*  Tliis  function  sets  the  text  default  values 


*/ 


J****************************************************** *********** *****/ 


static  void  settext(void) 

I 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_D!R,CENTER_TEXT); 


I 

!**********************************************************************! 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i .j) 
int  i,  j; 

( 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 


} 

j**********************************************************************/ 

/*  main  routine  calls  graph  routine  */ 

y*****  +  ****  +  +  %*  +  *  +  *  +  +  **  +  ***  +  ***  +  ****  +  +  +  +  +  +  *******  +  *****  +  ****<**>t<***  +  +  +  *>iy 


void  main() 


graph(); 

I 
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/*  Tills  routine  gives  an  example  of  inorder  traversal.  */ 

void  graph(void) 

{ 

/****************%************%***************************%**********/ 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangIe(x,y,MaxX-x,MaxY-y/8); 

outtextxy(38*x,y/2, "EXAMPLE  4-5-10"); 

outtextxy(2*x,2*y,"To  make  you  able  to  compare  the  result  we  will  use  the  result, 
we  will  again"); 

outtextxy(2*x,3*y,"use  the  same  expression  and  apply  the  algorithm  on  them.  And 
as  we  did  before"); 

outtextxy(2*x,4*y,"as  we  visit  each  vertex  we  will  keep  the  inorder  list  for  you  to 
follow."); 

jit  **%*%$**jf<:k*3f'3f«*:t<**jtc%]f<3k****%****£****:4(****%*****************’t<*’t<3i<3t<]tt’t<’t<*y 

pieslice(27*x,5*y,0,359,2);  /*  G  */ 
pieslice(17*x,7*y, 0,359,2);  /*  D  */ 
pieslice(37*x,7*y  ,0,359,2);  /*  H  */ 
moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 
outtextxy(27*x,9*y/2,"G"); 
outtextxy(15*x,7*y,"D"); 
outtextxy(39*x,7*y,"H"); 
pieslice(12*x,9*y,0,359,2);  /*  C  */ 
pieslice(22*x,9*y,0,359,2);  /*  F  */ 
moveto(12*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 
outtextxy(10*x,9*y,"C"); 
outtextxy(22*x,19*y/2,"F"); 
pieslice(7*x,l  1  *y ,0,359,2);  /*  A  */ 

pieslice(18*x,ll*y, 0,359,2);  /*  E  */ 
moveto(7*x,l  l*y);  lineto(12*x,9*y); 
moveto(22*x ,9*y );  lineto(  1  b  *x,  1 1  *y ); 
outtextxy(5*x,l  I*y,"A"); 
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outtextxy(  J  8*x,23*y/2,"E"); 
pieslice(12*x,13*y,0,359,2);  /*  B  */ 
nioveto(7*x,l l*y);  lineto(12*x,13*y); 
outtextxy(  1 2*x,27*y/2,"B" ); 

^***>(c******>(<***i(<*l(tJ(i***********++#***  +  ******************‘(<**+**i('******+y 

outtextxy(44*x,5*y,"Step  by  step  Inorder  Traversal"); 

moveto(43*x,l l*y/2);  lineto(89*x,  1 1  *y/2); 

outtextxy(3*x,29*y/2, "Inorder  Listing"); 

moveto(2*x,  1 5  *y );  lineto(40*x,  1 5  *y ); 

outtextxy(30*x,24*y, "PRESS  ANY  KEY  TO  CONTINUE..."); 

while(kbhit()  )  getch(); 

getch(); 

setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 
setlinestyle(3,0,l); 

j  *  *  %  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  *  *  *  +  +  *  +  *  *  *  *  *  %  *  *  +  if  *  *  *  *  *  %  %  *  %  *  *  %  %  *  *  *  J 

outtextxy(44*x,6*y,"We  will  start  out  traversal  by  visiting"); 
outtextxy(44*x,7*y,"left  subtree  (roote  by  D),  since  there"); 
outtextxy(44*x,8*y,"is  a  one  we  will  apply  inorder  traver-"); 
outtextxy(44*x,9*y,"sal.Once  again  since  D  has  left  subtree"); 
outtextxy(44*x,10*y, "rooted  by  C,  we  will  apply  inorder  "); 
outtextxy(44*x,l  l*y, "traversal  and  go  to  C.  C  too,  has  a  left"); 
outtextxy(44*x,12*y, "subtree,  so  we  will  apply  the  algorithm"); 
outtextxy(44*x,13*y,"once  again.  We  will  go  to  A.  A  does  not"); 
outtextxy(44*x,14*y,"left  subtree  so  according  to  the  algo-"); 
outtextxy(44*x,15*y,"rithm  we  will  visit  A."); 
outtextxy(3*x.l6*y,"A"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,3 1  *y/2);  lineto(89*x,3 1  *y/2); 

/a*******************************************************************/ 

outtextxy(44*x,16*y,"Then  we  will  visit  right  subtree  B. "); 
outtextxy(5*x,16*y,"B"); 
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Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x  ,3  3 *y/2);  lineto(89*x ,3 3  *y/2); 

^********j|<***j(cjt<************************l|<***j|c*******j(<>|<*****  +  ***:(<>t<*****y 

outtextxy(44*x,17*y,"This  also  completed  the  traversal  of  C’s"); 
outtextxy(44*x,18*y,"left  subtree.  So  now  we  will  visit  C."); 
outtextxy(7*x,  1 6*y  ,"C" ); 

Pause(30*x,24*y); 
setcolor(backc  olor ) ; 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 

moveto(44*x,37*y/2);  lineto(89*x,37*y/2); 
/********************************************************************/ 


outtextxy(44*x,19*y,"Now  we  will  visit  D."); 
outtextxy(9*x,16*y,"D"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,39*y/2);  lineto(89*x,39*y/2); 


outtextxy(44*x,20*y,"This  time  we  will  go  to  F  and  start"); 
outtextxy(44*x.21*y,"inorder  traversal  from  F.  We  will  go"); 
outtextxy(44*x,22*y,"to  left  subtree  of  F,  consisting  of1); 
outtextxy(44*x,23*y,"only  vextex  E,  so  we  will  visit  E."); 
outtextxy(l  l*x,16*y,”E”); 

Pause(30*x,24*y); 
se  tcolor(backc  olor ) ; 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y.70*x,49*y/2); 
setcolor(  forecolor); 


outtextxy(44*x,6*y,"We  now  will  visit  root  F  since  we  comp-"); 
outtextxy(44*x,7*y,"leted  traversal  of  its  left  subtree."); 
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outtextxy(13*x,16*y,"F"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

moveto(44*x,15*y/2);  lineto(89*x,15*y/2); 

outtextxy(44*x,8*y, "Consequently,  we  next  visit  the  root  G."); 
outtextxy(15*x,16*y,"G"); 

Pause(30*x,24*y); 
setcolor(backc  olor ) ; 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

moveto(44*x,17*y/2);  lineto(89*x,17*y/2); 

/fc^******************************************************************/ 


outtextxy(44*x,9*y, "Finally  we  will  go  the  right  subtree"); 
outtextxy(44*x,10*y,"of  the  root  G.  We  have  only  one  vertex"); 
outtextxy(44*x,l  l*y,"on  this  subtree  and  visiting  this"); 
outtextxy(44*x,12*y, "vertex  will  complete  the  inorder"); 


outtextxy(44*x,13*y, "traversal  of  the  entire  binary  tree."); 


outtextxy(  1 7*x,l  6*y  ,"H"); 


Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q45 1  .c 

:  At  ilia  BAKAN 
:  Mar.  22, 1990 
:  Mar.  22,  1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  the 
binary  trees  and  traversals. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

*1 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined! _ TURBOC_J  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#inclu<le  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_186)  &&  :defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  fmdflrst(a,b,c )  _dos_fmdfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _G  RAPH_T_DEF1N ED 

I 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
sta  '  'oid  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 


/*  graphic  initialization  variables  */ 

int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error; 
int  backcolor; 
int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX.  MaxY; 

1 
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y**********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**********************************************************************^ 

static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgiclriver(ATT_driver)  <  0)  exit(l ); 

} 


y*********************************************************************^ 

/*  This  fuction  initializes  tlie  necessary  graphical  routines  */ 

y'********************************************************#*************/ 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_dri  vers(); 
graphdriver  =  DETECT; 

y****************************l|<l|<**!t<****s|tst<lte****!|c*******!|<*!|<!|<**!l<:t(******!|e*y 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresultQ; 


/*** 


**/ 


if(graph_error  <  0){ 

putsigraphenomisg(grapherror)); 

exit(l); 

I 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/8(); 
y  =  MaxY/25; 

/t******************************************************************* 


settext(); 

y*  I******************************************************************* 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  =  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

) 


/* 


************ 


*********************************************************/ 


static  void  confIrm_graph_exit(void) 

{ 


struct  onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(  quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

whUe  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’>  II  (ch  ==  ’N’»)  | 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 
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switch  (eh)  { 
case  ’y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcclor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N‘:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(3 1  *x,23*y,69*x,97*y/4): 

setcolor(forecoior); 

break; 

default :  break; 

I 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


yT*  I*********************************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

/+*****  +  ****************************  +  *********  +  ****  +  **  +  ****  +  +  ***>t<*****!)y 

static  void  settext(void) 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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/***#****:(<)(<**>t!!|(***!(<*********!|<#**:(<:(<l(<!|<*******Jt<**!(<**#*l((***#***l|!***!|<*lt(]|<*!tI%*y' 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/************************************+*************************+*****+*/ 


void  Pause(ij) 
iiit  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey( )=ESC)  confinn_graph_exit(); 


y*l(!***l4c*j(<s(<l(<  +  **l(l*****l(<***********!(<!)t>(<***j(<*  +  +  ****jtc**j(<*  +  **)(<**j(c***+l(<*l)l*l(l+l|ll(<*^ 

/*  main  routine  calls  exer  routine  */ 

void  main() 


( 

exer(); 

} 
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^* ************************************************************+********/ 
/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

I*******  ******  ***************  *********+*********  ^i**********************^ 


static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXERCISE  1 "); 

/*****  +  *******************jt<****:t<***********l|j*:4<***>|<**>t<*  +  *l|<*:t<*l|<l|<*l|<*:f<*l|<*y 


outtextxy(10*x,2*y, "Construct  an  expression  tree  for  the  following  expression."); 
outtextxy(35*x,3*y,"a  +  b  *  c"); 

/♦t******************************************************************/ 


while  (in_the_exercise  =  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  as  you  need  :"); 
outtextxy(  15*x,15*y,"  a)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(  15*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC )  confinn_graph_exit(); 
while  (!((Ch  ==  ’a’) !!  (Ch  =  ’b’)  II  (Ch  ==  ’c’)))  { 
ounextxy(48*x,18*y,"  Please  type  a,  b,  or  c"); 

Ch  =  getch  (); 

if(Ch==ESC)  confixm_graph_exit(); 
if((Ch  ==  ’a’)  II  (Ch  =  ’b’)  II  (Ch  ==  ’c’))  ( 
setcolor(backcolor); 
bar(50*x,35*y/2,88*x,20*y); 
setcolor(forecolor); 

} 

I 

switch  (Ch)  { 


1210 


case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,18*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,19*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,20*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’b’:  outtextxy(47*x,18*y,"b"); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,19*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,20*y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

bar(2!(,x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 
contmn_exit(); 
break; 

default  :  break; 

I 

) 

closegraph(); 

} 
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/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

y**********************************************************************/ 


static  void  compare_solutions(void) 

I 


setcolor(backcolor ) ; 


/*  Clean  the  game  field  */ 


bar(2*x,4*y,179*x/2,49*y/2); 

y* +  ******  +  ***  +  *************%***********  +  ***************************  +  */ 


setcolor(forecolor); 

pieslice(40*x,10*y,0,359,2);  /*  +  */ 

pieslice(35*x,12*y,0,359,2);  /*  a  */ 

pieslice(45*x,12*y,0,359,2);  /*  *  */ 

moveto(35*x,12*y);  lineto(40*x,10*y);  lineto(45*x,12*y); 

outtextxy(40*x,19*y/2,"+"); 

outtextxy(35*x,25*y/2,"a"); 

outtextxy(46*x,12*y,"*"); 

pieslice(40*x,14*y, 0,359,2);  /*  b  */ 

pieslice(50*x,14*y,0,359,2);  /*  c  */ 

moveto(40*x,14*y);  lineto(45*x,12*y);  lineto(50*x,14*y); 

outtextxy(39*x,29*y/2,"b"); 

outtextxy(49*x,29*y/2,"c"); 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(  forecolor); 


) 
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/*  Tliis  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/*  +  *** c*****************************************************************/ 


static  void  step_solution(void) 

{ 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(3*x/2,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 


pieslice(30*x,10*y,0,359,2) 

pieslice(25*x,12*y,0,359,2) 

pieslice(35*x,12*y,0,359,2) 


I*  +  */ 
/*  a  */ 
/*  (b  *  c)  */ 


moveto(25*x,12*y);  lineto(30*x,10*y);  lineto(35*x,12*y); 


outtextxy(30*x,19*y/2,"+"); 

outtextxy(25*x,25*y/2,"a"); 


outtextxy(32*x,25*y/2,"(b  *  c)"); 

Pause(30*x,24*y); 

pieslice(50*x,10*y, 0,359,2);  /*  +  */ 
pieslice(45*x,12*y, 0,359,2);  /*  a  */ 
pieslice(55*x,12*y.0,359,2);  /*  *  */ 
pieslice(50*x,14*y,0,359,2);  /*  b  */ 
pieslice(60*x,14*y,0,359,2);  /*  c  */ 
moveto(45*x,12*y);  lineto(50*x,10*y);  lineto(55*x,12*y); 
moveto(50*x,14*y);  lineto(55*x,12*y);  lineto(60*x,14*y); 
outtextxy(50*x,l9*y/2,"+"); 


outtextxv'45*~,25*v/2,"'1"); 


outtextxy(56*x,12*y,"*"); 

outtextxy(49*x,29*y/2,"b"); 

outtextxy(59*x,29*y/2,"c"); 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 
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static  void  confirm_exit(void) 

I 

char  ch; 


outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,I9*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  D  (ch  =  ’n’)  I!  (ch  =  *Y’)  II  (ch  =  ’N’»)  { 
outtextxy(53*x,22*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  Y)  II  (ch  ==  V)  II  (ch  ==  ’Y’>  II  (ch  =  ’N’)) 
setcolor(backcolor); 
bar(50*x,2 1  *y,  1 79*x/2,49*y/2); 
setcolor(forecolor); 

I 

switch  (ch)  | 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bai(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

default  :  bieak; 

) 


1214 


/*  PROGRAM  :  q452.c 
AUTHOF  :  Atilla  BAKAN 
DATE  :  Apr.  2,  1990 
REVISED  :  Apr.  2,  1990 


DESCRIPTION  :  This  program  contains  the  second  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined (_TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _G  RAPH_T_DEFI  NED 

/*  function  prototypes  *1 

/*  Utility  functions  */ 

static  void  init _graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 
static  void  register_drivers  (void); 
static  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

y**********************************************************************y 

/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1; 


y**********************************************************************y 

/*  graphic  initialization  variables  */ 

y*  ******************************  *************  iit*************************^ 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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^****************111*****%*********#**************************%**********/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**********************************************************************y 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(rcgisterbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


1+  ****************************************************************** 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

f********* *************************************************************  J 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

y*******:|c**************************]i<*i)c>(c!|c***i|c!)cj|ci|c***j|ci|ej|c>|c***************y 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

j*  fc***********************************************************;*:*****:1^ 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

j************** ********************************************  >n** ******* I 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

J********************************************************************J 

settext(); 

y********************************************************************y 
if  ((graphmode  ==  CGAH1)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FTLL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 


/********************************************************************** 
/*  This  function  sets  the  text  default  values  */ 

^* ********************************************************************* 
static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZJ3IR,CEN  UIR.TEXT); 

} 


I*  ********************************** ***********************************/ 

/*  Equivalent  of  press_  a_key  function  for  graphics  screen  */ 

^* ***********************************$*****************%***************/ 
void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

ouitextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confnTn_graph_exit(); 


1218 


y**********************************************************************y 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

y************************************»*********************************y 

static  void  exer(void) 

{ 

char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,V.axX,MaxY); 
rectangle(x,y,MaxX-x,Max  Y -y/2); 
ouftextxy(38*x,y/2,"EXERClSE  2"); 

y* *************************************** **************************** J 

outtextxy(l()*x,2*y, "Construct  an  expression  tree  for  the  following  expression.”); 
outtextxy(3()*x,3*y,"((a  -  b)  /  c)  *  (d  +  e  /  f) '); 

^**********+4*************************** +****************************! 

while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  as  you  need  :"); 
outtextxy(15*x,15*y,"  a)  I’m  done,  1  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,17*v,"  c)  This  is  enough  for  me,  1  want  to  exit."); 
outtextxy(  1 5*x,  1 8*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm _graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,18*y,”  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confiim_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  V)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(5()*x,35*y/2,88*x,20*y); 

setcolor(forecolor); 


switch  (Ch) 
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case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,18*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,19*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,20*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolof(forecolor); 

compare_solutions(); 

break; 

case  ’b’:  outtextxy(47*x,18*y,"h"); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step”); 
outtextxv(52*x,19*y,"solution.  So  press  any  key  to  "); 
outtext\y(52*x,20*y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50>kx,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 
confirm_exit(); 
break; 

default  :  break; 


closegrapbQ; 
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/******************* **************************************************4y 

/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

/A**************************************************************  4.******^ 

static  void  compare_solutions(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,4*y,179:  x/2,49*y/2); 

/I*************.*******************************************************/ 

setcolor(forecolor); 
pieslice(40*x,8*y,0,359,2);  /*  *  */ 
pieslice(35*x,10*y,0,359,2);  /*  /  */ 
pieslice(45*x,10*y,0,359,2);  /*  +  */ 
moveto(35*x,10*y);  lineto(40*x.8*y);  lineto(45*x,10*y); 
outtextxy(40*x,15*y/2,"*"); 
outtextxy(33*x,10*y,"/"); 
outtextxy(46*x,10*y,"+”); 

pieslice(42*x,12*y, 0,359,2);  /*  d  */ 

pieslice(50*x,  1 2*y,0,359,2);  /*  /  */ 

moveto(42*x,12*y);  lineto(45*x,10*y);  lineto(50*x,12*y); 

pieslice(30*x,  1 2*y,0, 359,2);  /*  -  */ 

pieslice(38*x,12*y,0,359,2);  /*  c  */ 

moveto(30*x,12*y);  lineto(35*x,10*y);  lineto(38*x,12*y); 

outtextxy(28*x,12*y,"-"); 

outtextxy(38*x,25*y/2,"c"); 

outtextxy(42*x,25*y/2,"d"); 

outtextxy(5 1  *x,l  2*y,"/"); 

/♦♦a*****************************************************************/ 

pieslice(45*x,14*y, 0,359,2);  /*  e  */ 

pieslice(55*x,  1 4*y ,0,359,2);  /*  f  */ 

moveto(45*x,14*y);  lineto(50*x,12*y);  lineto(55*x,14*y); 

pieslice(25*x,14*y,0,359,2);  /*  a  */ 

pieslice(35*x,  1 4*y,0,359,2);  /*  b  */ 

moveto(25*x,14*y);  lineto(30*x,12*y);  lineto(35*x,14*y); 

outtextxy(25*x,29*y/2,"a"); 

outtextxy(35*x,29*y/2,"b”); 
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outtextxy(45*x,29*y/2,"e"); 

outtextxy(55*x,29*y/2,"f’); 

y**********************************************************- ******* 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolorfforecolor) ; 

} 


/**********************************************************************/ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/**************************  ***************3k******3k**  **  *****4:*  *  *  *  *  ******  j 

static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(3*x/2,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

y********* *************************************** ********************  j 

setcolor(forecolor); 

piesliccv20*x,6*y,0,359,2);  /*  *  */ 

pieslice(15*x,8*y, 0,359,2);  /*((a-b)/c  */ 
pieslice(25*x,8*y,0,359,2);  /*(d  +  e/f)  */ 
moveto(15*x,8*y);  lineto(20*x,6*y);  lineto(25*x,8*y); 
outtextxy(20*x,l  1  *y/2, "*"); 
outtextxy(5*x,17*y/2,"((a  -  b)  /  c)"); 
outtextxy(21*x,17*y/2,"(d  +  e  /  f)"); 

Pause(30*x,24*y); 

^*  *******************************************************************y 

pieslice(60*x,6*y,0,359,2);  /*  *  */ 
pieslice(55*x,8*y,0,359,2);  /*  /  */ 
pieslice(65*x,8*y,0,359,2);  /*  +  */ 
moveto(55*x,8*y);  lineto(60*x,6*y);  lineto(65*x,8*y); 
outtextxy(60*x,l  l*y/2,"*"); 
outtextxy(53*x,8*y,"/ '); 
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/******************************t**********.r 

static  void  confirm _graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


**************************/ 


setcolor(backcolor) ; 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?’’); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(0); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

ifLmouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  main  routine  that  calls  exer  routine  */ 

/********************** ************************************************^ 
void  main() 

{ 

exer(); 

} 
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outtextxy(66*x,8*y,"+"); 

/********************************************************************/ 

pieslice(62*x,  10*y,0,359,2);  /*  d  */ 

pieslice(70*x,10*y,0,359,2);  /*  (e  /  f)  */ 

moveto(62*x,10*y);  lineto(65*x,8*y);  lineto(70*x,10*y); 

pieslice(50*x,10*y,0,359,2);  /*  (a  -  b)  */ 

pieslice(58*x,10*y,0, 359,2);  /*  c  */ 

moveto(50*x,10*y);  lineto(55*x,8*y);  lineto(58*x,10*y); 

outtextxy(46*x,21*y/2,"(a  -  b)"); 

outtextxy(58*x,2 1  *y/2,"c"); 

outtextxy(62*x,21*y/2,"d"); 

outtextxy(67*x,21*y/2,"(e  /  f)"); 

Pause(30*x,24*y); 

^********************************************************************y 

pieslice(40*x,12*y,0,359,2);  /*  *  */ 

piesiicc(35*x,14*y,0,359,2);  /*  /  */ 

pieslice(45*x,14*y,0,359,2);  /*  +  */ 

moveto(35*x,14*y);  lineto(40*x,12*y);  lineto(45*x,14*y); 

outtextxy(40*x,23*y/2,"*"); 

outtextxy(33*x,14*y,7"); 

outtextxy(46*x,14*y,”+"); 

y********************************************************************/ 

pieslice(42*x,16*y,0,359,2);  /*  d  */ 

pieslice(50*x,  1 6*y,0,359,2);  /*  /  */ 

moveto(42*x,16*y);  lineto(45*x,14*y);  lineto(50*x,16*y); 

pieslice(30*x,16*y,0,359,2);  /*  -  */ 

pieslice(38*x,16*y,0,359,2);  /*  c  */ 

moveto(30*x,16*y);  lineto(35*x,14*y);  lineto(38*x,16*y); 

outtextxy(28*x,16*y,"-"); 

outtextxy(38*x,33*y/2,"c"); 

outtextxy(42*x,33*y/2,"d"); 

outtextxy(51*x,16*y,"/"); 

pieslice(45*x,18*y,0, 359,2);  /*  e  */ 
pieslice(55*x,  1 8*y, 0,359,2);  /*  f  */ 
moveto(45*x,18*y);  lineto(50*x,16*y);  lineto(55*x,18*y); 
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pieslice(25*x,18*y,0,359,2);  /*  a  */ 

pleslice(35*x,18*y,0, 359,2);  /*  b  */ 

moveto(25*x,18*y);  lineto(30*x,16*y);  lineto(35*x,18*y); 

outtextxy(25*x,37*y/2,"a"); 

outtextxy(35*x,37*y/2,"b"); 

outtextxy(45*x,37*y/2,”e"); 

outtextxy(55*x,37*y/2,"f'); 

y* ******************************************************************  */ 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 


} 

static  void  confirm_exit(void) 

{ 

char  ch; 

outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,19*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  —  >"); 
ch  =  getch  (); 

while  (!((ch  ==  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,22*y,”  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,2 1  *y,  1 79*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 
case  y :  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
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break; 


case  V:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor) ; 

break; 

default :  break; 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q453.c 

:  Atilla  BAKAN 
:  Apr.  4, 1990 
:  Apr.  4,  1990 


DESCRIPTION  :  This  program  contains  the  third  exercise  about  the  binary 
trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined (__TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/**********************************************************************/ 
/*  graphic  initialization  variables  */ 

y**********************************************************************y 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 
static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 
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y* *********************************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y* *********************************************************************/ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

y**  *  ***  *  *  )|c  **  *  *  **  *  *  *  4  **  *  *  *****  *  *  *  ***  *********************************  *j 

initgraph(«&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

y********************************************************************y 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

y********************************************************************y 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  M CGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 
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/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  *1 

*********************************************************************/ 


static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


y* #********************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************y 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 


^* *********************************************************************/ 
static  void  confirm_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurQ; 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
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ch  =  getch  (); 

if((ch  ==  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
videoinit(); 
exit(0); 
breax; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

case  ’N’:  setcolor(h:,ckcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y.69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

1 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 
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I*.  **************************************  ****************  ***************/ 

/*  main  routine  that  calls  exer  routine  */ 

^*****,.  ********** ******************************************************/ 

void  main() 

{ 

exer(); 

) 

l^!*^^*ltc^*i!*******^**  '  ************************************************** / 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/**********************************************************************/ 
static  void  exer(void) 

{ 

char  Ch; 

ini:_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  3"); 

outtextxy(20*x,2*y, "Consider  the  following  binary  tree."); 

^*  *******************************************************************/ 

pieslice(40*x,3*y,0,359,2); 

pieshce(35*x,5*y,  0,359,2); 

pieslice(45*x,5*y,0, 357,2); 

pieslice(30*x,7*y,0,359,2); 

pieslicc(38*x,7*y,0,359,2); 

pieslice(50*x,7*y, 0,359,2); 

pieslice(25*x,9*y,0,359,2); 

pieslice(35*x,9*y,0,359,2); 

pieslice(42*x,9*y, 0,359,2); 

pieslice/'46*x,9*y, 0,359,2); 

pieslice(55*x,9*y.0,359,2); 

pieslicL(20*x,  1 1  *y,0,359,2); 

pieslice(30*x,l  l*y.0.359,2); 
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pieslice(38*x,  1 1  *y, 0,359,2); 
pieslice(42*x,l  l*y,0,359,2); 
pieslice(50*x,l  l*y,0,359,2); 
pieslice(60*x,l  l*y,0,359,2); 
moveto(20*x,l  l*y);  lineto(25*x,9*y); 
lineto(30*x,7*y);  lineto(35*x,5*y); 
lineto(40*x,3*y);  lineto(45*x,5*y); 

Iineto(50*x,7*y);  lineto(55*x,9*y); 
lineto(60*x,l  l*y); 

moveto(30*x,l  l*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,l  1  *y); 

moveto(35*x,5*y);  Iineto(38*x,7*y); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
lineto(50*x,l  l*y); 

movcto(46*x,9*y);  lincto(50*x,7*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(33*x,5*y,"B"); 

outtextxy(46*x,5*y,"C"); 

outtextxy(28*x,7*y,"D"); 

outtextxy(39*x,7*y,"E"); 

outtextxy(51  *x,7*y,"F"); 

outtextxy(2:1*x,9*y,"G  ); 

outtcxtxy(33*x,9*y,"H”); 

outtextxy(43*x,9*y,"I"); 

outtextxy(47*x,9*y,"J"); 

outtextxy(56*x,9*y,"K"); 

outtextxy(20*x,23*y/2,"L"); 

outtextxy(30*x,23*y/2,"M"); 

outtextxy(38*x,23*y/2,"N"); 

outtextxy(42*x,23*y/2,"0"); 

outtextxy(50*x,23*y/2,”P"); 

outtextxy(60*x,23*y/2,”Q”); 

^tt********^*************^**-**************************************/ 

outtextxy(18*x,13*y, "Which  one  of  the  following  statements  is  true 
outtextxy(2()*x,15*y,"a)  H  and  M  fomis  the  left  subtree  of  vertex  IV); 
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outtextxy(20*x,16*y,"b)  J  is  the  root  of  left  subtree  ofvertex  F  "); 
outtextxy(20*x,17*y,"c)  N  is  the  right  subtree  of  vertex  E"); 
outtextxy(20*x,18*y,"d)  All  of  the  above  statements  are  correct"); 
outtextxy(18*x,20*y, "Enter  your  choice  here 
Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,20*y,"  Please  type  a,b,c,  or  d"); 

Ch  =  getch  0; 

if(Ch==ESC)  confirm _graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)) 

setcolor(backcolor); 

bar(50*x,19*y,88*x,19*y); 

setcolor(forecolor); 

) 

switch  (Ch)  { 

case  ’a’:  outtextxy(50*x,20*y,”a"); 

outtextxy(55*x,20*y, "Sorry,  that’s  not  true!"); 
outtextxy(55*x,21*y, "because,  they  form  the"); 
outtextxy(55*x,22*y,"left  subtree  of  vertex  E."); 
outtextxy(55*x,23*y,”The  answer  is  ’b’."); 
break; 

case  ’b’:  outtextxy(50*x,20*y,”b"); 

outtextxy(55*x,20*y, "Correct.  You  are  doing  fine!"); 
break; 

case  ’c’:  outtextxy(50*x,20*y,"c"); 

outtextxy(55*x,20*y,"No.  N  is  the  left  subtree  of'); 
outtextxy(55*x,21*y,"the  vertex  I.  The  answer  is”); 
outtextxy(55*x,22*y,"’b’."); 
break; 

case ’d":  outtextxy(50*x,20*y,"d”); 

outtextxy(55*x,20*y,"No.  Because,  if  you  carefully"); 
outtextxy(55*x,21*y, "examine,  you’ll  see  that  ’a’"); 
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outtextxy(55*x,22*y,"and  ’c’  is  wrong,  so  ’d’  is.' 
outtextxy(55*x,23*y,,’The  answer  is  ’b”'); 
break; 


default  :  break; 

} 

Pause(15*x,24*y); 

closegraph(); 
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/•PROGRAM  :  q454.c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Apr.  4,  1990 

REVISED  :  Apr.  4,  1990 

DESCRIPTION  :  This  program  contains  the  fourth  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPILER  :  This  program  it,  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxhnou.h" 

#if  defined(_TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /•  MSC/QuickC  •/ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  definedt  _ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

static  void  error_exit  (int  ermum); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confimi_exit  (void); 

j*  * * * * * * *  *  *  * * * * * * * *  * * * * * * *  * * ** * * * * * * * * * * * * * *** * * * * * * * +  *  * * * * * * * * * * * + * *  * * j 

/*  miscellaneous  global  variables  */ 

int  bi_the_exercise  =  1; 

/I**********************************************************************/ 

/*  graphic  initialization  variables  */ 

/******%*%*%%*%%***%%%****%*************%%***%*************%***********'/ 

int  curr_mode; 

bit  graphdriver; 

bit  graplunode; 

bit  graph_error; 

int  backcolor; 

bit  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**  +  +  +  ************  +  +  +  *******  +  **  +  *****>t<  +  **>l<*****’t'*  +  +  +  +  *  +  ********  +  >t<  +  +  **  +  *y 

static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l ); 
if(regLsterbgidriver(ATT_driver)  <  0)  exit(l); 

I 

y***************************************************************%******y 

/*  This  fuction  initializes  the  necessary  graphical  routines  +/ 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 


register_drivers(); 
graplulriver  =  DETECT; 

initgraph(&graphdriver,&graphmode,”"); 
graph  error  =  graphresult(); 

if( graphs e nor  <  ())( 
puts(grapherronnsg(graph_error)); 
exit(  1 ), 

> 

MaxX  =  getm;ixx( ); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y***+**t*+*+**********+******+****%*++**+*’t+++*+****+**+%***%+*+**%*+y 
settext( ); 

if  ((giaphmode  ==  CGAHI)  II  (graphinode  ==  MC'GAMED)  II  (graphniode  =- 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graplimode  =  ATT400HI))  { 
setfillsryle(SOLID_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiiistyle(SOLID_FILL1BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

1 

forecolor  =  WHITE; 


/**********************************************************************/ 
static  void  confinn_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 


setcol  or(  backcolor) ; 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(  quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit,  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

whUe  (!((ch  ==  ’y’)  ”  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n’’); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(  backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  ( 
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case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69,',x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3 ,23  *y  ,30*x  ,97  *y/4 ); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default  :  break; 

) 

bidecut  (); 

if(_niouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  def  lult  values  */ 

static  void  settext(void) 

I 

settextstylef  0,0,0); 
setlinestyle(0.4,3); 

settextjustify(HORIZJ)IR, CENTER  _TEXT); 
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/*  Equivalent  of  press_a__key  function  for  graphics  screen  */ 

I************** k***********%********************************************y 


void  Pause(i,j) 
int  i,  j; 


settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()=ESC)  { 
closegraphO; 
videoinit(); 
exit(O); 

} 

} 


/***************************** 


/*  main  routine  calls  exer  routine  */ 

/ft*********************************************************************/ 

void  main() 


exer(); 
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/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/i********************************************************************** 

static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXERCISE  4"); 

outtextxy(2*x,2*y,"Give  the  preorder  listing  of  the  vertices  for  the  following  binary 
tree."); 

/********%>f<*********i|<*]|ci|<*%]<<*****if<*>ttitc:|<i<<*>t<***>('%>l<>l<****%>l'>f<***********>t<><<>f'* 

pieslice(40*x.3*y, 0,359,2); 
pieslice(35*x,5*y,0,359,2); 
pieslice(45*x,5*y,0,359,2); 
pieslice(30+x,7*y, 0,359,2); 
pieslice(38*x,7*y,0,359,2); 
pieslice(50*x.7,|,y.0,359,2); 
pieslice(25*x.9*y, 0,359,2); 
pieslice(  35  *x  ,9*y, 0,359,2); 
pieslice(42*x,9*y,0,359,2); 
pieslice(46*x,9*y, 0,359,2); 
pieslice(55*x,9*y, 0,359,2); 
pieslice(20*x,l  1  *y  ,0,359, 2); 
pieslice(30*x,l  1  *y  ,0,359,2); 
pieslice(38*x.l  1  *y  ,0,359, 2); 
pieslice(42*x,l  1  *y, 0,359,2); 
pieslice(50*x,l  1  *y, 0,359, 2); 
pieslice(60*x,  1 1  *y  ,0,359,2); 
moveto(20*x.l  l*y);  lineto(25*x,9*y); 
lineto(30*x,7*y);  lineto(35*x,5*y); 
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lineto(40*x,3*y);  lineto(45*x,5*y); 
lineto(50*x,7*y);  lineto(55*x,9*y); 
lineto(60*x,ll*y); 

moveto(30*x,l  l*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,ll*y); 

moveto(35*x,5*y);  lineto(38*x,7*y); 
moveto(42*x,l  1  *y);  lineto(46*x,9*y); 
lineto(50*x,l  I*y); 

moveto(46*x,9*y);  lineto(50*x,7*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(33*x,5*y,"B"); 

outtextxy(46*x,5*y,"C"); 

outtextxy(28*x,7*y,"D"); 

outtextxy(39*x,7*y,”E”); 

outtextxy(5 1  *x,7*y,"F"); 

outtextxy(23*x,9*y,"G"); 

outtextxy(33*x,9*y,”H”); 

outtextxy(43*x,9*y,"I"); 

outtextxy(47*x.9*y,"J”); 

outtextxy(56*x,9*y,"K"); 

outtextxy(20*x,23*y/2,"L”); 

outtextxy(30*x.23*y/2,"M”); 

outtextxy(38*x,23*y/2,"N"); 

outtextxy(42*x,23*y/2,"0"); 

outtextxy(50*x,23*y/2,"P"); 

outtextxy(60*x,23*y/2,"Q"); 

Z******************************************************************** 

while  (iii_the_exercise  ==  1)  { 

outtextxy(  15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algoritlim  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  1  want  to  compare  my  solution  with  yours."); 
outtextxy(  15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  forme,  I  want  to  exit."); 
outtextxy(  15*x,I9*y, "Enter  your  choice  here  —->"); 

Ch  =  getch  (); 
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if(Ch==ESC)  confirm_graph_exit(); 
whUe  (!((Ch  ==  ’a’)  II  (Cli  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)))  { 


outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 
Ch  =  getcli  (); 

if(Ch==ESC)  confinn_graph_exit(); 


if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’))  { 


setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 


switch  (Ch)  { 

case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y."You  want  to  see  the  algorithm  "); 
outtextxy(52*x, 20*y, "again.  Press  any  key  to  continue.”); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2,179*x/2,21*y); 
bar(2*x,13*y,179*x/2,49*y/2); 
setcolor(forecolor); 
show  __alg( ); 
break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,l9*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor ); 

bar(  50*x  .37  *y/2, 1 79*x/2,22*y ); 

bar(2*x,l3*y.l79*x/2,49*y/2); 

setcolor(forecolor); 
compare_sohitions(); 
break ; 

case  V:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,  l9*y,"You  want  to  see  step  by  step”); 
outtextxy(52*x,20*y, "solution.  So  press  any  key  to  "); 
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outtextxy  ( 52*x,2 1  *y /'continue 

Pause(30*x,24*y); 

setcolor(backcolor ); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y/'d"); 
confirm_exit(); 
break; 

default  :  break; 


closegraph(); 

} 


/* **************************+***********+******************************/ 
/*  This  routine  gives  preorder  traversal  of  a  binary  tree  algorithm  */ 

^t*********************************************************************/ 

static  void  show_alg(void) 


outtextxy(  15*x,14*y, "PREORDER  TRAVERSAL  ALGORITHM  OF  A  BINARY 
TREE"); 

outtextxy(2*x,15*y,"Step  1  (visit)  Visit  the  root."); 

outtextxy(2*x,i6*y,"Step  2  (go  left)  Go  to  the  left  subtree,  if  one  exists,  do  a  pre¬ 
order"); 

outtextxy (2*x,17*y,”  traversal  '); 

outtextxy(2*x,18*y,"Step  3  (go  right)  Go  to  the  right  subtree,  if  one  exists,  and  do 
a  preorder"); 

outtextxy(2*x,19*y,"  traversal."); 

Pause(30*x.24*y); 
setcolor(  baekcolor ); 
bar(2*x,47*y/4,179*x/2,49*y/2); 
setcolort  forecolor); 
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/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

static  void  compare_solutions(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x  ,47  *y/4, 1 79*x/2,49*y/2); 
setcolort  forecolor); 

y***************************************************************«****y 

outtextxy(3*x.29*y/2, "Preorder  Listing"); 
moveto(2*x.l5*y);  lineto(60*x,15*y); 

outtextxy(3*x,l6*y,"A,  B,  D,  G,  L,  E,  H,  M,  I,  N,  C,  F,  J,  O,  P,  K,  Q"); 

/******  **  **************  ****%**********************************  ***<Jk****^ 
Pause  (30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x  ,47*y/4,  l 79*x/2,49*y/2); 
setcolorf  forecolor); 


y*  *************** ******************************************************y 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

y**********************************************************************y 

static  void  step_solution(void) 

I 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 
setcolor(forecoloi ); 

outtextxy(3*x,29*y/2, "Preorder  Listing"); 
moveto(2*x,15*y);  lineto(57*x,I5*y); 

/**  +  ******************************  +  **  +  +  ******************************/ 
outtextxy(3*x,16*y,"A");  /*  Visit  the  root  A  */ 

Pause(30*x,24*y), 
setcolort  backcoloi ); 
bar(29*x,23*y.50*x,49*y/2); 
setcolort  forecolor); 
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/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

setcolor(backcolor); 
moveto(40*x,3*y);  lineto(35*x,5*y); 
setlinestyle(3,0.3); 
setcolor(forecolor); 

moveto(40*x,3*y);  lineto(35*x,5*y);  /*  Visit  B  */ 

setlinestyle(0,0,3); 

outtextxy(6*x.l6*y,"B"); 

Pause(30*x,24*y); 
setcolot  (backcolor ); 
bar(29*x,23*y.50*x.49*y/2); 
setcolor(  forecolor); 

/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

/jfc**********************************************************^*******^ 

setcolor(backcolor); 
moveto(35*x.5*y);  lineto(30*x,7*y); 
setlinestyle(3.0,3); 
setcolor(forecolor); 

moveto(30*x.7*y);  lineto(35*x,5*y);  /*  Visit  D  */ 

setlinestyle(0.0,3); 

outtextxy(9*x.  1 6*y,"D"); 

Pause(30*x,24*y); 
setcolor(backcolor): 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

setcolor(backcolor); 
moveto(25*x.9*y);  lineto(30*x,7*y); 
setlinestyle(3,0,3); 
setcolor(  forecolor); 

moveto(30*x,7*y);  lineto(25*x,9*y );  /*  Visit  G  */ 
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setlinestyle(0,0,3); 
outtextxyf  1 2*x,  1 6*y,"G"); 

Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

y**************************************************************%***%*y 

/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

y*  I*******************************************************************/ 

setcolor(backcolor); 
moveto(25*x,9*y);  lineto(20*x,l  l*y); 
setlinestyle(3,0,3); 
setcolorf  forecolor); 

moveto(20*x,ll*y);  lineto(25*x,9*y);  /*  Visit  L  */ 

setlinestyle(0.0,3); 

outtextxy(15*x,16*y,"L"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolor(  forecolor); 

y*********jk********  +  ******St<>|l*l|<*lks|<**!|!!|'**>t<*l|<>l<%**!t<>t<>|<*j|(!|<!|t*!<<!(<j|<**!|c**  +  >|<*+. 

/*  Since  L  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  until  the  vertex  B,  and  go  to  its  right  subtree,  and  visit  root  E  */ 

/*******************%******%%**%%%4:%*){<%%jt<**%*%*%%**%*%**%;f<**]fc3|<%%:4c)f<j4<)(<jfy 

setcolor(backcolor); 

moveto( 35 *x,5 *y );  lineto(38 *x,7 *y ); 

setlinestyle(3.0,3); 

setcolor(forecolor); 

moveto(35*x,5*y);  lineto(38*x,7*y);  /*  Visit  E  */ 

setlinestyle(0.0,3); 

outtextxyt  1 8*x,16*y,"E" ); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolort forecolor); 
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y*  ***************  ***********  *****************************************/ 

/*  Go  to  left  subtree  of  the  vertex  E.  */ 

y********************************************************************y 

setcolor(backeolor); 
moveto(35*x.9*y);  lineto(38*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(35*x,9*y);  lineto(38*x,7*y);  /*  Visit  H  */ 

setlinestyle(0,0,3); 

outtextxy(21*x,16*y,"H"); 

Pause(30*x,24*y ); 
setcolor(backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolor(forecolor); 

y***********************************^********************************y 

/*  Go  to  left  subtree  of  the  vertex  H.  */ 

/**************.<*****************************************************  j 

setcolor(backcolor) ; 
moveto(30*x,l  l*y)  linefo(35*x,9*y); 
setlinestyle(3.0,3); 
setcolor(forecolor); 

moveto(30*x,l  l*y);  lineto(35*x,9*y);  /*  Visit  M  */ 

setlinestyle(0.0,3); 

outtextxy(24*x,  1 6*y  ,"M" ); 

Pause(30*x,24*y); 
setcoloi(backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolorf  forecolor); 

^****************************************************************,|(***y 

/*  Since  M  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  until  the  vertex  E.  and  go  to  its  right  subtree,  and  visit  root  I  */ 

^* +******************************************************************/ 

setcolor(backcolor); 

moveto(42*x.9*y );  lineto(38*x,7*y ); 

setlinestyle(3.0.3 ); 

setcolorl  forecolor); 
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moveto(42*x,9*y);  lineto(38*x,7*y);  /*  Visit  1  */ 

setlinestyle(0,0,3); 

outtextxy(27*x,16*y,'T'); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*  Go  to  left  subtree  of  the  vertex  I.  */ 

J** ********************************************************  ********** j 

setcolor(backcolor); 
mcveto(38*x,l  l*y);  lineto(42*x,9*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(38*x.l  l*y);  lineto(42*x,9*y);  /*  Visit  N  */ 

setlinestyle(0.0.3); 

outtextxy(30*x,16*y,"N"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x.23*y.50*x,49*y/2); 
setcolort  forecolor); 

Z********************************************************************/ 

/*  Since  N  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  until  the  vertex  A,  and  go  to  its  right  subtree,  and  visit  root  C.  */ 


setcolor(backcolor); 
moveto(40*x.3*y);  lineto(45*x,5*y); 
setlinestyle(3,0,3); 
setcolort  forecolor); 

nioveto(40*x.3*y);  lineto(45*x,5*y);  /*  Visit  C  */ 

setlinestyle(0,0,3); 

outtextxy(33*x,I6*y,"C”); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x.23*y.50*x,49*y/2); 

setcolor(forecolor); 
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/ *  The  vertex  C  does  not  have  a  left  subtree  so,  go  to  its  right  subtree  */ 

/i********************************************************************/ 

setcolor(backcolor); 
moveto(50*x,7*y);  lineto(45*x,5*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(50*x,7*y);  lineto(45*x,5*y);  /*  Visit  F  */ 

setlinestyle(0,0,3); 

outtextxy(36*x,16*v,"F"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/%********!|(*!|<***;:-~-|t***  +  *S|<j|<*****!|<*********>l<**!|t**!<<*****lt<*l|t****!t<>l<******!ty 

/*  Go  to  left  subtree  of  the  vertex  F.  */ 

setcolor(backcolor); 
moveto(50*x.7*y);  lineto(46*x,9*y); 
setlinestyle(  3.0.3); 
setcolor(forecolor); 

moveto(50*x.7*y);  lineto(46*x,9*y);  /*  Visit  J  */ 

setlinestyle(0.0.3); 

outtextxy(39*x,16*y,"J''); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x.23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*  Go  to  left  subtree  of  the  vertex  J.  */ 

setcolor(backcolor); 
moveto(42*x.l  l*y);  lineto(46*x.9*y); 
setlinestyle(3.0,3); 
setcolori  forecolor); 

moveto(42*x.l  1  *y);  lineto(46*x,9*y);  /*  Visit  O  */ 
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setlinestyle(0.0,3); 

outtextxy(42*x.l6*y,"0”); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

/*  Since  O  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  to  the  vertex  J,  and  go  to  its  right  subtree,  and  visit  the  vertex  P.  */ 

/ft*************?*****************************************************/ 

setcolor(backcolor); 
moveto(50*x,l  l*y);  lineto(46*x,9*y); 
setlinestyle(3.0,3); 
setcolor(  forecolor); 

moveto(50*x,l  l*y);  lineto(46*x,9*y);  /*  Visit  P  */ 

setlinestyle(0.0,3); 

outtextxy(45*x,16*y,"P"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y.50*x,49*y/2); 

setcolor(forecolor); 

^* **************+****************************************************/ 
/*  Since  P  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  to  the  vertex  F,  and  go  to  its  right  subtree,  and  visit  the  root  K  */ 

y*******************************:^^****  *********  ****  aft***  **************  j 

setcolor(backcolor); 
moveto(50*x,7*y);  lineto(55*x,9*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(50*x,7*y);  lineto(55*x,9*y);  /*  Visit  K  */ 

setlinestyle(0,0,3); 

outtextxy(48*x,16*y,  "K "); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x.23*y,50*x,49*y/2); 
setcolorl  forecoloi ); 
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y+*%  +  %  +  **5|<  +  ****)k**3(<*3f5*<*********5*«*5ft*************************i<**3k**Jk***y 

/*  The  vertex  K  does  not  have  a  left  subtree  so,  go  to  its  right  subtree  */ 

y********************************************************************/ 

setcolor(backcolor); 
moveto(55*x,9*y);  lineto(60*x,l i*y), 
setlinestyle(3,0,3); 
setcolor(forecoloi ); 

moveto(55*x,9*y);  lineto(60*x.l  l*y);  /*  Visit  Q  */ 

setlinestyle(0,0,3); 

outtextxy(51*x,16*y."Q"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*v.50*x,49*y/2); 

y********************************************************************/ 


/*  Clean  the  game  field  again  */ 
bar(3  *x/2,47*y/4, 1 79*x/2.49*y/2 ); 
setcolor(  forecolor); 

y*****************************i|<:|<*!|<**!|<>|t>!<*>l<**>tti|c*****>|<***i|<******>!'>|<j|c*****y 

/*  Redraw  the  tree  */ 

y********************************************************************/ 


moveto(20*x.l  l*y);  lineto(25*x,9*y); 
lineto(30*x,7*y );  lineto(35*x,5*y); 
lineto(40*x.3*y);  lineto(45*x,5*y); 
lineto(50*x,7*y);  lineto(55*x,9*y); 
lineto(60*x,l  1  *y); 

moveto(30*x.l  l*y);  lineto(35*x.9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,l  l*y); 

moveto(.35*x.5*y);  lineto(38*x,7*y); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
lineto(50*x.  1 1  *y); 

moveto(46*x.9*y);  lineto(50*x,7*y); 
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/**********************************************************************/ 
static  void  confirm_exit(void) 

( 

char  ch; 

outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 

ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  ==  *Y’)  II  (ch  ==  ’N’)))  | 
ounextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

i£((ch  ==  •)'’)  II  (ch  ==  V)  I!  (ch  ==  ’Y’)  II  (ch  ==  ’N’)> 
setcolor(backcolor); 
beu(50*x,22*y,  1 79*x/2, 49!*'y/2>; 
setcolor(  forecolor); 

) 

switch  (ch)  | 

case  *y  ’ :  in_the_exercise  =  0; 
break; 

case  ’Y‘:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,37*y/2, 179*x/2,22*y); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolur(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default  :  break; 

) 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q455.c 

:  At  ilia  BAKAN 
:  Apr.  4,  1990 
:  Apr.  4,  1990 


DESCRIPTION  :  This  program  contains  the  fifth  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 


*/ 


C  compiler  Version  2.0. 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined!  M_1 86)  &&  !defined( _ ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  fir.dfirst(a,b,c)  _dos_findftrst(a,c,b) 

#define  findnext(a)  _dos_findriext(a; 

#defitie  ffblk  fuid_t 

#define  ff_name  name 

#el  if  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ftblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GP*APH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  registerdrivers  (void); 
extern  void  settext  (void); 

static  void  error  exit  (int  emium); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void): 

static  void  show  alg  (void); 

static  void  step  solution  (void); 
static  void  cornpare_solutions  (void); 
static  void  confirm_exit  (void); 

/**********************************************************************/ 
/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 

^*  +  **  +  *******************************  +  ************  +  ********************Y 
/*  graphic  initialization  variables  */ 

!* *  ********+*************************jfr*****************************+****y 

int  curr_mode; 

int  graphdriver: 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y.  MaxX,  MaxY; 


y****  +  ***  +  ******  +  +  ***j4«  +  +  +  ***  +  ****  +  **  +  *>tc*%*  +  4<  +  ****  +  +  +  *  +  *********%***  +  *  +  *y 


/*  This  function  is  uc  c  ior  including  drivers  10  the  executable  code  */ 

1+  ***********•>  *•<  +  **%***+  +  *  +  **********  +  **  +  ***  +  *  +  ****  +  +  +  +  **  +  +  *;(«***  +  ****+/ 


static  void  register_drivers(void) 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidnver(EGAVGA__diiver)  <  0)  exit(l ); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l ); 


!+ ***+*****+********************************************************»  *+i 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

1****************************+***************************+*************^ 
static  void  init_graph(void) 

( 

tnt  xasp.  yasp. 

register_dxivers< ); 
graphdriver  =  DETECT; 

/****%***********%%%*******%***%*********%*****%%**%******%*%***%**%*/ 
tnitgrapbl &  graphdriver, &graphmode,""); 
graph  error  -  graphresultt ), 

/*******  +  +  ***,»**•  +  **  +  ****  +  ***+*  +  +  #******+**  +  ***  +  ,,***#*  +  *+  +  *++*  ++**+* 

ifl  graph_error  <  ())( 
puts(grapheiromisg(graph_error)/; 
exit(  1 ), 


MaxX  =  getmaxx< ). 
MaxY  =  getmaxyt ). 
x  =  MaxX/KO; 
y  =  MaxY/25; 

settexti ); 


if  ((graphmode  ==  CGAHI)  II  (graplunode  ==  MCGAMED'  II  (graphmode 


A1T400MED)  II  (graphmode  ==  MCGAH1)  II  (graphmode  ==  A1T400HI))  ( 
setfilistyle(SOLlD_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  ( 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

I 

forecolor  =  WHITE; 


static  void  confirm_graph_exit(void) 

I 

stmct  onkey  t  *kblist; 
char  ch; 

setcolorl  backcolor); 
bar(3*x/2.23*y,179*x/2.97*y/4); 
setcolort  quitcolor); 

kb!ist=chgonkev(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS )  mshidecur( ); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  ( ); 

while  ( f ( ( ch  -=  ’y')  II  (ch  ==  ’n’)  II  (ch  ==  ’Y')  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  l ); 

if( (ch  ==  V)  II  (ch  -=  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar)  3 1  *x,23*y,69*x.97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  ( 
case  'y':  closegraph( ); 
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videoinitO; 

exit(O); 

break; 


case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default  ;  break; 

I 

hidecui'O; 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

I 

/*  This  function  sets  the  text  default  values  */ 

/**********************%***************%**%***%%*****%****************%/ 
static  void  settext(void) 

I 

settextstyle(O.O.O); 

setlinestylet  0,4.3); 

settextjustify(HORIZJ)IR,CENTER_TEXT); 
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y**********************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

I**********************************************************************/ 


void  Pause(i.j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkeyO==ESC)  confirm_graph_exit(); 

) 


/*  main  routine  that  calls  exer  routine  */ 

y*************%********************************************************y 
void  main(  ) 


exer(); 
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/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

y* ****%******¥********%%*******%*******%************%****************** 

static  void  exer(void) 

I 

char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,Max  Y ); 
rectangle(x,y,MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2, "EXERCISE  5"); 

y********************************************:*!***********************^ 

outtextxy(2*x,2*y,”Give  the  preorder  listing  of  the  vertices  for  the  following  binary 
tree."); 

y******************************************************************** 

pieslice(40*x,3*y,0,359,2); 

pieslice(30*x,5*y, 0,359,2); 

pieslice(50*x,5*y,0,359,2); 

pieslice(25*x,7*y,0,359,2); 

pieslice(35*x,7*y.0.359,2); 

pieslice(45*x,7*y, 0,359,2); 

pieslice(55*x,7*y, 0,359,2); 

pieslice(20*x.9*y, 0,359,2); 

pieslice(30*x.9*y, 0.359,2); 

pieslice(40*x,9*y  ,0,359,2); 

pieslice(50*x,9*y,0,359,2 ); 

pieslice(60*x,9*y, 0,359.2); 

moveto(20*x.9*y);  lineto(25*x,7*y); 

lineto(30*x,5  *y );  lineto(40*x,3 *y ); 

Iineto(50*x,5*y );  lineto(55*x,7*y); 

Iineto(60*x,9*y); 

moveto(30*x,9*y );  lineto(35*x,7*y); 
lineto(40*x,9*y); 

moveto(30*x,5*y );  lineto(35*x,7*y); 
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moveto(50*x,5*y);  lineto(45*x,7*y); 

lineto(50*x,9*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(28*x,5*y,"B"); 

outtextxy(5 1  *x,5*y  ,"C"); 

outtextxy(23*x,7*y,"D"); 

outtextxy(36*x,7*y,"E"); 

outtextxy(43*x,7*y,"F"); 

outtextxy(56*x,7*y,"G”); 

outtextxy(20*x,19*y/2,"H"); 

outtextxy(30*x,19*y/2,'T'); 

outtextxy(40*x,  1 9*y/2,”J" ); 

outtextxy(50*x,19*y/2,"K"); 

outtextxy  t60*x,  1 9*y/2,"L" ); 

y********************************************************************/ 
while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y, "Enter  your  choice  here  —  >"); 

Ch  =  getch  (): 

if(Ch==ESC)  confinn_graph_exit(); 

/****************%***********%%********************%********:4<**:4<%*****y 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,l9*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  V)  II  (Ch  ==  V)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 
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switch  (Ch)  { 

case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y/'You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y /’again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2,l'79*x/2,21*y); 
bar(2*x,13*y,179*x/2,49*y/2); 
setcolor(  forecolor); 
show_alg(); 
break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,”tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,l 3*y,  1 79*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,l9*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y /'solution.  So  press  any  key  to  "); 
outtextxy(52*x, 2  l*y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
break; 
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default  :  break; 

} 

} 

closegraph(); 

) 


j*  %  *  *  *  *  ***  *  ******  **  **********  *  *****  *  ***  +  +  ***  +  ******  *  *  **  *******  ******  *  *  ifj 

/*  This  routine  gives  preorder  traversal  of  a  binary  tree  algorithm  */ 

jM  MMMMMMMMMMMM  MMMMMMMMMMMMMMMMMMMMMMM******* <***************************^ 


static  void  show_alg(void) 

{ 

outtextxy(15*x,14*y, "PREORDER  TRAVERSAL  ALGORITHM  OF  A  BINARY 
TREE"); 


outtextxy(2*x,15*y,"Step  1  (visit)  Visit  the  root."); 

outtextxy(2*x,16*y,"Step  2  (go  left)  Go  to  the  left  subtree,  if  one  exists,  do  a  pre¬ 
order”); 

outtextxy(  2*x.  1 7  *y ,"  traversal." ); 

outtextxy(2*x,18*y,"Step  3  (go  right)  Go  to  the  right  subtree,  if  one  exists,  and  do 
a  preorder"); 

outtextxy(2*x,19*y,"  traversal."); 

Pause(30*x,24*y); 

setcolor(backcolor); 


bar(2*x,47*y/4,179*x/2,49*y/2); 
setcolort  forecolor); 

I 
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/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

static  void  compare_solutions(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

l***************************************  +  ***************************-*f 

outtextxy(3*x.29*y/2, "Preorder  Listing”); 
moveto(2*x,  1 5*y );  lineto(42*x,  1 5 *y); 
outtextxy(3*x,16*y,"A,  B,  D,  H,  E,  I,  J,  C,  F,  K,  G,  L"); 

y********************************************************************^ 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 


/****************************************i|<************>l<*>t<**>l<**********>iy 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/%%***:>{(:4'*%**:4'*%*%:f<**%*%****%%*%*********%**%***%***%*%*%%***>l<’f<>f<*’f<***’f<>k’ty 

static  void  step_solution(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x.47*y/4,179*x/2,49*y/2); 

setcolor(forecolor>; 

outtextxy(3*x,29*y/2,"Preorder  Listing"); 
moveto(2*x,15*y);  lineto(42*x,15*y); 

y’************************************************#*******************/ 

outtextxy(3*x,16*y,"A");  /*  Visit  the  root  A  */ 

Pause(30*x,24*y); 

setcolor(backcolor); 


bar(29*x,23*y,50*x,49*y/2); 
setcolorf  forecolor); 

^************** ************************ ******************** **********/ 
/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

1+  *********  *****************************ik*****+********************+*^ 

setcolor(backcolor); 
moveto(40*x.3*y);  lineto(30*x,5*y); 
setlinestyle(3,0.3): 
setcolor(forecolor); 

moveto(40*x,3*y);  lineto(30*x,5*y);  /*  Visit  B  */ 

setlinestyle(0,0,3); 

outtextxy(6*x,16*y,"B"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolor(  forecolor); 

/******** ^ A**********************************************************/ 

/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

setcolor(backcolor); 
moveto(30*x.5*y);  lineto(25*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(30*x,5*y);  lineto(25*x,7*y);  /*  Visit  D  */ 

setlinestyle(0,0,3); 

outtextxy(9*x,l6*y,"D"); 

Pause(30*x,24*y); 
setcolor(  backcolor ); 
bar(29*x,23*y,50*x,49*y/2); 
setcolorfforecolor); 

/********************************************************************/ 
/*  Go  to  left  subtree,  and  do  a  preorder  traversal  again.  */ 

y********************************************************************/ 
setcolor(backcoloi ); 
moveto(25*x,7*y);  lineto(20*x,9*y); 
setlinestyle(3,0,3); 
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setcolor(forecolor); 

moveto(25*x,7*y);  lineto(20*x,9*y);  /*  Visit  H  */ 

setlinestyle(0,0,3); 

outtextxy(12*x,16*y,"H"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*  Since  H  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  until  die  vertex  B,  and  go  to  its  right  subtree,  and  visit  root  E  */ 


/ 


******************************************************************** 


/ 


setcolor(backcolor); 
moveto(30*x,5*y);  lineto(35*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

iv>oveto(3()*x.5*y);  lineto(35*x,7*y);  /*  Visit  E  */ 

setlinestyle(0,0,3); 

outtextxy(  1 5  *x,  1 6*y  ,"E" ); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

!^e  jfr******************************************************************^ 


/* 

/* 


Go  to  left  subtree  of  the  vertex  E.  */ 


setcolor(backcolor); 
moveto(35*x,7*y);  lineto(30*x,9*y); 
setlinestyle(3,0,3); 
setcolor(  forecolor); 

moveto(35*x,7*y);  lineto(30*x,9*y);  /*  Visit  I  */ 

setlinestyle(0.0,3); 

outtextxy(  1 8*x,  1 6*y  ,"1" ); 

Pause(30*x,24*y ); 

setcolor(backcolor); 

bar(29*x,27*y,50*x,49*y/2); 
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setcolort  forecolor); 

^*  *******»***********************************************************/ 
/*  Since  I  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  until  the  vertex  E,  and  go  to  its  right  subtree,  and  visit  root  J  */ 

/********************************************************************^ 

setcolor(backcolor); 

moveto(35*x,7*y);  lineto(40*x,9*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(35*x,7*y);  lineto(40*x,9*y);  /*  Visit  J  */ 

setlinestyle(0,0,3); 

outtextxy(2 1  *x,  1 6*y  ,"J" ); 

Pause(30*x  ,24*y ); 
setcolor(backcolor); 
bar(29*x,23*y.50,<A,49,'y/2); 
setcolor(  forecolor); 

/********************************************************************/ 
/*  We  have  completed  traversal  of  the  left  subtree  of  the  root  A.  We  now  */ 

/*  will  visit  the  right  subtree  of  A.  */ 

^********************************************************************^ 

setcolor(backcolor); 

nioveto(40*x.3 *y );  lineto(50*x,5 *y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(40*x,3*y);  lineto(50*x,5*y);  /*  Visit  C  */ 

setlinestyle(0,0,3); 

outtextxy(24*x,16*y,"C"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(  29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

/********************************************************************/ 
/*  Go  to  left  subtree  of  the  vertex  C.  */ 

/********************************************************************/ 

setcolor(backcolor); 

mnv»»tn(50*x.5*y );  lineto(45*x,7*y ); 
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setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(50*x,5*y);  lineto(45*x,7*y);  /*  Visit  F  */ 

setlinestyle(.0,0,3); 

outtextxy(27*x,16*y,"F"); 

Pause(30*x,24*y); 

setcoloitbackcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*  The  vertex  F  does  not  have  a  left  subtree  so,  go  to  its  right  subtree  */ 

/fr*******************************************************************/ 

setcolor(backcolor); 
moveto(50*x,9*y);  lineto(45*x,7*y); 
setlinestyle(3.0,3); 
setcolor(forecolor); 

moveto(50*x.9*y);  lineto(45*x,7*y);  /*  Visit  K  */ 

setlinestyle(0,0,3); 

outtextxy(30*x,16*y."K"); 

Pause(30*x.24*y); 

setcolor(backcolor); 

b?r(29*x,23*y.50*x,49*y/2); 

setcolor(forecolor); 

/* **+*******+********************************************************/ 
/*  Since  K  is  a  terminal  node,  it  does  not  have  a  subtree,  so  go  back  */ 

/*  until  the  vertex  C,  and  go  to  its  right  subtree,  and  visit  root  G  */ 

l**jt*********!¥*******************<****<*****************’¥***********  +  **l 

setcolor(backcolor); 
moveto(50*x,5*y);  lineto(55*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(50*x,5*y);  lineto(55*x,7*y);  /*  Visit  G  */ 

setlinestyle(0,0,3); 

outtextxy(33*x,16*y,”G"); 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*  The  vertex  G  does  not  have  a  left  subtree  so,  go  to  its  right  subtree  */ 

^j^******************************************************************^ 

setcolor(backcolor); 
moveto(55*x,7*y);  lineto(60*x,9*y); 
setlinestyle(3.0,3); 
setcolor(  forecolor); 

moveto(55*x,7*y);  Iineto(60*x,9*y);  /*  Visit  L  */ 

setlinestyle(0,0,3); 

outtextxy(36*x,16*y,"L"); 

Pause(30*x,24*y ); 
setcolor(baekcolor); 
bai(29*x,23*y.50*x,49*y/2); 
setcolor(forecolor); 

/♦I*******************************************************************/ 

/*  Clean  tlie  game  field  again  */ 

bar(3*x/2,47*y/4,179*x/2,49*y/2); 

setcolor(forecoloi ); 

/%**********************************%*%****************************+*/ 
/*  Redraw  the  tree  */ 

y*  ***************************************%**%****************%*******/ 

inoveto(20*x.9*y );  Iineto(25*x.7*y ); 

lineto(30*x,5*y);  lineto(40*x,3*y ); 

lineto(50*x,5*y);  lineto(55*x,7*y ); 

lineto(60*x,9*y ); 

moveto(30*x,9*y );  lineto(35*x,7*y); 
lineto(40*x.9*y); 

moveto(30*x.5*y),  lineto(35*x,7*y ); 
moveto(50*x  5*y);  Iineto(45*x,7*y); 
lineto(50*x,9*y ), 
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y********************************************************************** 

static  void  confirm_exit(void) 


/ 


char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
ourtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  getch  ( ); 

while  (!((ch  ==  ’y\)  II  (ch  =  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(53*x.23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’>  ’)  II  (ch  ==  'n’>  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcol  or(  backcol  or ); 
bar(5()*x,22*y,l  79*x/2,49*y/2); 
setcolor(forecolor); 


switch  (ch)  { 

c  «se  y'.  in_the_exercise  =  0; 
break: 

case  Y':  in_the_exercise  =  0; 
bre;ik: 

case  ’n':  setcolor(backcolor); 

bar(46*x.37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break, 

case  'N‘:  setcolor(backcolor): 

bar(4(>*x.37*y/2.179*x/2.22*y); 

setcolor(  forecolor); 

bre;ik. 


default  :  break; 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q456.c 

:  Atilla  BAKAN 
:  Apr.  4,  1990 
:  Apr.  4,  1990 


DESCRIPTION  :  This  program  contains  the  sixth  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h” 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff  name  name 

#elif  defined! _ ZTC_)  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attnb  attribute 


#endif 


#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 
static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

y**********************************************************************y 

/*  miscellaneous  global  variables  */ 

y**********************************************************************y 

int  in_the_exercise  =  1; 

y**********************************************************************y 

/*  graphic  initialization  variables  */ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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y*  *********************************************************************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**********************************************************************y 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 

y** ************************************************************** ******  j 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

I**********************************************************************/ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

y***** ******************** ********** *************************** ******y 

imtgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

j  *  *******************************************************************y 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 


j  *  ******************************************************************* 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y*  ******************************************************************* 

settext(); 

/******************************************************************** 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FTLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 


/**********************************************************************/ 
static  void  confirm_graph_exit(void) 

{ 

struct  _onkey„t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n” ); 
ch  =  getch  (); 

if((ch  ==  ’y’)  'I  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  [ 
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case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

^*  ***************************************************** ********* *******/ 
static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

) 
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y* ******************************************************************** *y 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y* ******************************************************************** *y 


void  Pause (ij) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE...^"); 
if(waitkey()==ESC)  confirm _graph_exit(); 

} 


y*  *********************************************************************y 

/*  main  routine  calls  exer  routine  */ 

y**********************************************************************y 

void  main() 

{ 

exer(); 

} 
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/**********************************************************************/ 
/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

^* *********************************************************************/ 
static  void  exer(void) 

{ 

char  Ch; 

init_graph(); 
se  tcolor(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXERCISE  6"); 

outtextxy(2"-x,2*y,"Give  the  postorder  listing  of  the  vertices  for  the  following  bina¬ 
ry  tree."); 

/*******************************************************************4y 

pieslice(40*x,3*y,0, 359,2); 

pieslice(30*x,5*y,0,359,2); 

pieslice(50*x,5*y,0,359,2); 

pieslice(25*x,7*y,0,359,2); 

pieslice(35*x,7*y,0,359,2); 

pieslice(45*x,7*y, 0,359,2); 

pieslice(55*x,7*y,0,359,2); 

pieslice(20*x,9*y,0,359,2); 

pieslice(30*x,9*y,0,359,2); 

pieslice(40*x,9*y,0,359,2); 

pieslice(50*x,9*y,0,359,2); 

pieslice(60*x,9*y,0,359,2); 

moveto(20*x,9*y);  lineto(25*x,7*y); 

lineto(30*x,5*y);  lineto(40*x,3*y); 

lineto(50*x,5*y);  lineto(55*x,7*y); 

lineto(60*x,9*y); 

moveto(30*x,9*y);  lineto(35*x,7*y); 

Iineto(40*x,9*y); 

moveto(30*x,5*y);  lineto(35*x,7*y); 
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moveto(50*x,5*y);  lineto(45*x,7*y); 

lineto(50*x,9*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(28*x,5*y,"B"); 

outtextxy(51*x,5*y,"C"); 

outtextxy(23*x,7*y,"D"); 

outtextxy(36*x,7  *y,  "E"); 

outtextxy(43*x,7*y,"F"); 

outtextxy(56*x,7*y,"G"); 

outtextxy(20*x,19*y/2,"H"); 

outtextxy(30*x,19*y/2,"I"); 

outtextxy(40*x,19*y/2,"J"); 

outtextxy(50*x,19*y/2,"K"); 

outtextxy(60*x,19*y/2,"L"); 

^* *******************************************************************/ 
while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,”  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit.”); 
outtextxy(15*x,19*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (). 

if(Ch==ESC)  confirm_graph_exit(); 

/*********************************%*********************%************/ 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

} 

} 
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switch  (Ch)  { 

case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y,"again,  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2, 1 79*x/2,2 1  *y); 
bar(2*x,  1 3*y,  1 79*x/2,49*y/2); 
setcolor(forecolor); 
show_alg(); 
break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,”You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,  1 3*y ,  179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y, "solution.  So  press  any  key  to  ”); 
outtextxy(52*x,2 1  *y,' "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*v/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
break; 
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default  :  break; 


} 


closegraphQ; 

} 


/**********************************************************************/ 


/*  This  routine  gives  postorder  traversal  of  a  binary  tree  algorithm  */ 

I*  *******%*******:fc*****£**£%****&***%*>l<**$£$***************%*3ic*****:|f<*’i<*y 


static  void  show_alg(void) 

{ 

outtextxy(15*x,14*y, "POSTORDER  TRAVERSAL  ALGORITHM  OF  A  BINARY 
TREE"); 

outtextxy(2*x,15*y,"Step  1  (go  left)  Go  to  the  left  subtree,  if  one  exists,  do  a  pre¬ 
order"); 

outtextxy(2*x,16*y,"  traversal."); 

outtextxy(2*x,17*y,"Step  2  (go  right)  Go  to  the  right  subtree,  if  one  exists,  and  do 
a  preorder"); 

outtextxy(2*x,18*y,"  traversal."); 
outtextxy(2*x,19*y,"Step  3  (visit)  Visit  the  root.”); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

) 


/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

/****%*****$*******************%**********************%**************** 
static  void  compare_solutions(void) 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 


outtextxy(3*x,29*y/2, "Postorder  Listing"); 
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moveto(2*x,  1 5*y);  lineto(42*x,  1 5*y); 

outtextxy  (3*x,  1 6*y ,"H,  D,  I,  J,  h,  B,  K,  F,  L,  G,  C,  A"); 


/********************************************************************/ 


Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolorfforecolor); 

) 


y**********************************************************************y 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

y***** ********  ****  ***************************  ************  I********  ******y 

static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Ciean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,29*y/2, "Postorder  Listing"); 
moveto(2*x,  1 5*y);  lineto(38*x,  1 5*y); 

y*  *******************************************************************/ 

outtextxy(3*x,16*y,"H");  /*  Visit  H  */ 

setcolor(backcolor); 

moveto(20*x,9*y);  lineto(25*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(20*x,9*y);  lineto(25*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 
outtextxy(6*x,16*y,"D");  /*  Visit  D  */ 

setcolor(backcolor); 
moveto(30*x,5*y);  lineto(25*x,7*y); 
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setlinestyle(3,0,3); 
se  tcolor(forecolor) ; 
moveto(30*x,5*y);  lineto(25*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^********************************************************************y 

outtextxy(9*x,16*y,"I");  /*  Visit  I  */ 

setcolor(backcolor); 

moveto(30*x,9*y);  lineto(35*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(30*x,9*y);  lineto(35*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(  backcolor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

^********************************************************************y 

outtextxy(  1 2*x,  1 6*y,"J");  /*  Visit  J  */ 

setcolor(backcolor); 
moveto(35*x,7*y);  lineto(40*x,9*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(35*x,7*y);  lineto(40*x,9*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
se  tcolor(backcolor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

y********************************************************************y 


outtextxy(15*x,16*y,”E");  /*  Visit  J  */ 

setcolor(backcoior); 
moveto(35*x,7*y);  lineto(30*x,5*y); 
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setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(35*x,7*y);  lineto(30*x,5*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  ****  s|c  ******  aft  *  J*C  ***************  *  *  J*C  ***************  */ 

outtextxy(18*x,16*y,"B");  /*  Visit  B  */ 

setcolor(backcolor); 

moveto(40*x,3*y);  lineto(30*x,5*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(40*x,3*y);  lineto(30*x,5*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/4c*4c*4c*4c*4c4c4c4c4c4c*4c*4c*4c4<**4c***4<4f**4c****4c*4c*******4c4:*4c:+:*4<**4c*4c**********/ 

outtextxy(21*x,16*y,"K");  /*  Visit  K  */ 

setcolor(backcolor); 

moveto(50*x,9*y);  lineto(45*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(50*x,9*y);  lineto(45*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

jic  3ft  £  *  *  *  *  &  *  £  *  %  *  *  *  *  +  %  *  *  *  *  *  *  *  %  *  afc  *  *  *  *  *  *  %  a|c  sfc  *  *  *  *  *  *  *  *  *  *  *  *  *  *  %  *  *  *  %  *  *  afc  *  %  *  *  jfc  *  *  *  j 


outtextxy(24*x,16*y,"F”);  /*  Visit  F  */ 

setcolor(backcolor); 

moveto(45*x,7*y);  lineto(50*x,5*y); 
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setlinestyle(3,0,3); 

se  tcolor(  forecolor) ; 
moveto(45*x,7*y);  lineto(50*x,5*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
se  tcolor(  backcolor) ; 
bar(29*x,23*y,50*x,49*y/2); 
se  tcolor(forecolor) ; 

j  4c  *  *  Ifc  £  $  %  £  £  *  £  %  $  £  3fc  *  jfc  $  *  ★  *  *  *  %  *  %  4c  ijc  %  *  £  *  *  $  4c  If:  *  *  ★  +  *  *  *  ★  ★  %  ><  ★  *  ★  *  *  *  ★  *  *  *  +  *  *  *  *y 

outtextxy(27*x,16*y,"L”);  /*  Visit  L  */ 

setcolor(backcolor); 

moveto(60*x,9*y);  lineto(55*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(60*x,9*y);  lineto(55*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
se  tcolor(  forecolor) ; 

y********************************************************************y 

outtextxy(30*x,16*y)"G'');  /*  Visit  G  */ 

setcolor(backcolor); 

moveto(50*x,5*y);  lineto(55*x,7*y); 

setlinestyle(3,0,3); 

setcolorCforecolor); 

moveto(50*x,5*y);  lineto(55*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolorCbackcolor); 

bar(29*x,23|ty,50*x,49*y/2); 

setcolorCforecolor); 

I*  *************  *'*****************************************%***********y 

outtextxy(33*x,16*y,"C");  /*  Visit  C  */ 

setcolor(backcolor); 

moveto(50*x,5*y);  lineto(40*x,3*y); 
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setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(50*x,5*y);  lineto(40*x,3*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor) ; 

^*  ************************************************ +  ******  +  ***  +  ***  +  **,y 

outtextxy(36*x,16*y)"A”);  /*  Visit  A  */ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^/*  *  *  *  ****************************************************************y 

/*  Clean  the  game  field  again  */ 

bar(3*x/2,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

/********************************************************************, 

/*  Redraw  the  tree  */ 

^* *******************************************************************/ 
moveto(20*x,9*y);  lineto(25*x,7*y); 
lineto(30*x,5*y);  lineto(40*x,3*y); 
lineto(50*x,5*y);  lineto(55*x,7*y); 
lineto(60*x,9*y); 

moveto(30*x,9*y);  lineto(35*x,7*y); 
lineto(40*x,9*y); 

moveto(30*x,5*y);  lineto(35*x,7*y); 
moveto(50*x,5*y);  lineto(45*x,7*y); 
lineto(50*x,9*y); 


static  void  confirm_exit(void) 

{ 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  ”); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  -  getch  (), 

while  (!((ch  ==  V)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’) 11  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2.49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  V:  setcolor(backcolor); 

bar(46*x,37*y/2, 1 79*x/2,22  *y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

) 
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/*  PROGRAM  :  q457.c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Apr.  5,  1990 

REVISED  :  Apr.  5,  1990 

DESCRIPTION  :  This  program  contains  the  seventh  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*1 


I*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h” 

#if  defined(„TURBOC__)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#defuie  ff_attrib  attribute 

#endif 
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#define  GRAPH  T  DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

I*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  showalg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 


/***************************%*****************************************%' 
/*  graphic  initialization  variables  */ 

int  curr_mode; 

int  graphdiiver; 

int  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

bit  x,  y,  MaxX,  MaxY; 
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/********************************************* a************************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 


static  void  register_drivers(void) 

< 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


/**%***«* ************************************************* ************* tj 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

I 


int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/********************************>('>)'%*********************************/ 

initgraph(&graphdriver,&graplunode,""); 
graph_eiror  =  graphresult(); 

9|cafcaf(3fc9|e3|e3fc3|<9|<3tea|c9tC3(c3t<3fc3((3f<3|ca|<3|c9|ca|<a|c3|caka(caf(a|(3fc%aCcafca|(  %'jfc  sfeafeafca^^^afcafcafeafcafeafcsfcafcsfeafeafcafeatc^cafcsfcafeatcatcafeafcs^afc^afesk^ 

if(graph_error  <  0)  ( 
puts(grapherrormsg(graph_error)); 
exit(l ); 

) 

^*  ****************************************  +  ***  +  *******************  +  **/ 
MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

/i^*******************************************************************^ 

settext( ); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfil!style(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

> 

forecolor  =  WHITE; 

} 

^*  ********************************************************************* 
static  void  conflrm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  ==  V)  II  (ch  ==  *Y’>  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcoloi ); 

) 

switch  (ch)  ( 
case  ’y’:  closegraph(); 
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videoinitQ; 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break: 

default  :  break; 

) 

hidecurQ; 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  liidden  hot  keys  */ 

) 


j*  **  +  *  +  **  +  +  **  +  *  +  +  +  +  +  +  +  +  +  + 

/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

{ 

settextstyle(0.0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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/**********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

^* *************************************************************** ******^f 


void  Pause(i,j) 
mt  ?  j; 

1 

settext(); 

outtextxy(i,j,">»PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confirm _graph_exit(); 


/**********************************************************************/ 
/*  main  routine  that  calls  exer  routine  */ 

void  main() 

I 

exer(); 

} 

/*  Routine  that  asks  the  question,  then  depending  on  the  user's  answer  */ 

/*  makes  necessary  explanations  */ 

I** ******************************************************************** ^ 

static  void  exer(void) 

( 

char  Ch; 

init__graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y  ,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXERCISE  7"); 

/•tt*******************************************************************^ 

outtextxy(2*x,2*y,"Give  the  postorder  listing  of  the  vertices  for  the  following  bina¬ 
ry  tree."); 
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pieslice(40*x,3*y,0,359,2); 
pieslice(35*x,5*y,0,359,2); 
pieslice(45*x,5*y,0,359,2); 
pieslice(30*x,7*y  ,0,359,2); 
pieslicW38*T.7*y, 0,359.2); 
pieslice(50*x,7*y  ,0,359,2); 
pieslice(25*x,9*y,0,359,2); 
pieslice(35*x,9*y,0,359,2); 
pieslice(42*x.9*y  ,0,359,2); 
pieslice(46*x,9*y, 0,359,2); 
pieslice(55*x,9*y,0,359,2); 
pieslice(20*x,l  l*y, 0,359,2); 
pieslice(30*x.ll*y,0,359,2); 
pieslice(38*x,i  l*y,0,359,2); 
pieslice(42*x,l  l*y,0,359,2); 
pieslice(50*x,l  1  *y, 0,359,2); 
pieslice(60*x,  1 1  *y  ,0,359,2); 
moveto(20*x.l  1  *y);  lineto(25*x,9*y); 
lineto(30*x.7*y);  lineto(35*x,5*y); 
lineto(40*x,3*y);  lineto(45*x,5*y); 
lineto(50*x,7*y);  lineto(55*x,9*y); 
lineto(60*x,l  l*y); 

moveto(30*x,Il*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x.l  1  *y); 

moveto(35*x,5*y);  lineto(28*x,7*y); 

moveto(42*x,l  l*y);  lineto(46*x,9*y); 

lineto(50*x,l  l*y); 

moveto(46*x,9*y);  lineto(50*x,7*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(33*x,5*y,"B” ); 

outtextxy(46*x,5*y,"C"); 

ouUextxy(28*x,7*y,"D"); 

outtextxy(39*x,7*y,"E"); 

outtextxy(51*x,7*y,"F"); 

outtextxy(23*x,9*y,"G”); 


outtextxy(33*x,9*y,"H"); 

outtextxy(43*x,9*y,'T'); 

outtextxy(47*x,9*y,"J"); 

outtextxy(56*x,9*y,"K"); 

outtextxy(20*x,23 *y/2,"  L"  ); 

outtextxy(30*x,23*y/2,'M"); 

outtextxy(38*x,23*y/2,"N"); 

outtextxy(42*x,23*y/2,"0"); 

outtextxy(50*x,23*y/2,"P"); 

outtextxy(60*x,23*y/2,"Q"); 


/*  ***************** 


**************************************************/ 


while  (in_the_exercise  ==  1 )  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  1  want  to  exit."); 
outtextxy(l  5*x,19*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC )  confinn_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  V)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20,,<y); 

setcolor(forecolor); 


switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,19’l<y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,30*y, "again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
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bar(50*x.37*y/2,179*x/2,21*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

show_alg(); 

break; 

case  V:  ouuextxy(47ii-x,i9:!  y,"'u"), 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it.”); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,  1 3*y,  1 79*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,J9*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,  21  *y,’ "continue."); 

Pause(30:(<x,24*y); 

setcolor(  backcolor ); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,l  79*x/2,49*y/2); 

setcolor(forecoloi ); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confum_exit(); 
break; 

default  :  break; 


closegraphO; 
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^*  ********************************* ************************************/ 
/*  This  routine  gives  postorder  traversal  of  a  binary  tree  algorithm  */ 

/**********************************************************************^ 
static  void  show  alg(void) 

I 

outtextxy(15*x,14*y. "POSTORDER  TRAVERSAL  ALGORITHM  OF  A  BINARY 
TREE"); 

outtextxy(2*x,15*y,"Step  1  (go  left)  Go  to  the  left  subtree,  if  one  exists,  do  a  pre¬ 
order"); 

outtextxy(2*x,16*y,"  traversal."); 

outtextxy(2*x,17*y,"Step  2  (go  right)  Go  to  the  right  subtree,  if  one  exists,  and  do 
a  preorder"); 

outtextxy(2*x,18*y,"  traversal."); 
outtextxy(2*x.l9*y,"Step  3  (visit)  Visit  the  root.”); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(2*x,47*y/4,179*x/2,49*y/2); 
sei  clor(forecolor); 

I 

y++++****+***%*++4<****+*****+**+ ++****+***+*****++++**+****+*+***+**+*+/ 

/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

I#  ******************************************************************** *  j 

static  void  compare_solutions(void) 


setcolor(backcolor);  Clean  the  game  field  */ 

bar(2*x,47*y/4, 1 79*x/2,49*y/2); 
setcolor(forecolor); 

outtextxy(3*x,29*y/2, "Postorder  Listing"); 
moveto(2*x,  1 5*y);  lineto(60*x,  1 5*y ); 

ou?textxy(3*x.l6*y,"L,  G,  D,  M,  H,  N,  I,  E,  B,  O,  P,  J,  Q,  K,  F,  C,  A"); 
Pause(30*x,24*y ); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,47*y/4, 1 79*x/2,49*y/2); 
setcolor(  forecolor); 
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/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/**********************************************************************/ 
static  void  step_solution(void) 

1 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4, 179*x/2,49*y/2); 
setcolor(forecolor); 

outtextxy(3*x,29*y/2, "Postorder  Listing"); 
moveto(2*x,15*y);  lineto(53*x,15*y); 

f*  ***************************************************  -i.  ***************  i 

outtextxy(3*x,16*y,"L");  /*  Visit  L  */ 

setcolor(backcolor ); 

moveto(20*x,l  1  *y);  lineto(25*x,9*y); 

setlinestyle(3.0.3); 

setcolor(forecolor); 

moveto(20*x,l  1  *y);  lineto(25*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

I*  ******** t**********************************************************/ 

outtextxy(6*x,16*y,"G");  /*  Visit  G  */ 
setcolor(  backcolor ); 
moveto(30*x,7*y);  lineto(25*x,9*y); 
setlinestyle(3,0,3); 

setcolobfoiecolor); 
moveto(30*x.7*y);  lineto(25*x,9*y); 
setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x.23*y.50*x,49*y/2); 
setcolort  forecolor); 

/********************************************************>t<**>t<**>t<%%%*’ty 

outtextxy(9*x,16*y."D");  /*  Visit  D  */ 
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setcolor(backcolor); 
moveto(30*x,7*y);  lineto(35*x,5*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(30*x,7*y);  lineto(35*x,5*y); 

setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

outtextxy(12*x,16*y,"M");  /*  Visit  M  */ 

setcolor(backcolor); 

moveto(30*x.l  l*y);  lineto(35*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(30*x,l  l*y);  lineto(35*x,91,'y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

outtextxy!15*x,16*y,"H");  /*  Visit  H  */ 

setcolor(backcolor); 

moveto(38*x,7*y);  lineto(35*x,9*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

inoveto(38*x,7*y);  lineto(35*x,9*y); 

setlijiestyle(0,(),3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x  .23  *y  ,50*x  ,49  "  _>  /  2 ); 
setcolor(  forecolor); 

outtextxy(18*x,16*y,"N");  /*  Visit  N  */ 
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setcolorfbackcolor); 

moveto(38*x,  1 1  *y);  lineto(42*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(38*x,l  l*y);  lineto(42*x,9*y); 
setliiiestyle(0,0,3); 

Pause(30*x,24*y); 
se  t  coloit  baekc  olor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolorf  forecolor); 

outtextxy(21*x,l6*y/T');  /*  Visit  I  */ 

setcolor(backcolor); 

moveto(38*x,7*y);  lineto(42*x,9*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor): 

moveto(38*x,7*y);  lineto(42*x,9*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y.50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(24*x,16*y,"E");  /*  Visit  E  */ 

setcolor(backcolor); 

moveto(38*x,7*y);  lineto(35*x,5*y); 

setlinestyle(3.0,3); 

setcolor(forecolor); 

moveto(38*x,7*y);  lineto(35*x,5*y); 

setluiestyle(0,0,3): 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolort  forecolor); 

^* *******************************************************************/ 
outtextxy(27*x,l  b*y  ,"B" );  /*  Visit  B  */ 
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setco!or(backcolor); 

moveto(40*x,3 *y);  lineto(35 *x,5 *y); 

setlinestyle(3,0.3); 

setcolor(forecolor); 

moveto(40*x,3*y);  lineto(35*x,5*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(  backc  olor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

^*t******************************************************************/ 

outtextxy(30*x,16*y,"O");  /*  Visit  O  */ 

setcolor(backcolor); 

moveto(42*x,l  1  *y);  lineto(46*x,9*y); 

setline  style(3,0, 3); 

setcolor(forecolor); 

moveto(42*x,l  l*y);  'ineto(46*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcoloit  forecolor); 

outtextxy(33*x,16*y,"P");  /*  Visit  P  */ 

setcolor(backcolor); 

moveto(50*x,l  l*y);  lineto(46*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(50*x.l  1  *y);  lineto(46*x,9*y); 
setlinestyle(0,0,3): 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y.50*x,49*y/2); 

setcolor(forecolor); 

!> ********************************+**********+************************/ 
outtextxy(36*x,16*y,"J");  /*  Visit  J  */ 
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setcolor(backcolor); 
moveto(50*x,7*y);  lineto(46*x,9*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(50*x,7*y);  lineto(46*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y********************************************************************/ 

outtextxy(39*x,16*y,"Q");  /*  Visit  Q  */ 

setcolor(backcolor); 

moveto(55*x.9*y);  lineto(60*x,l  l*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(55*x.9*y);  lineto(60*x,l l*y); 
setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

outtextxy(42*x,16*y,"K");  /*  Visit  K  */ 

setcolor(backcolor); 

moveto(55*x,9*y);  lineto(50*x,7*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

nioveto(55*x,9*y);  lineto(50*x,7*y); 

setlinestyle(0.0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y********************************************************************/ 

outtextxy(45*x,16*y,"F ');  /*  Visit  F  */ 
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setcolor(backcolor); 
moveto(45*x,5*y);  lineto(50*x,7*y); 
setlinestyle(3,0,3); 

setcolorfforecolor); 
moveto(45*x,5*y);  lineto(50*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolorf  backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

/********************************************************************/ 

outtextxy(48*x,16*y,"C”);  /*  Visit  C  */ 

se  tcoloi  (backc  olor ) ; 

moveto(45*x,5*y);  lineto(40*x,3*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

moveto(45*x,5*y);  lineto(40*x,3*y); 

setlinestyle(0,0,3); 

Pause(30*x.24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(51*x,16*y,"A");  /*  Visit  A  */ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/*************************:4<*:4<**************)|<***********************%4y 

/*  Clean  tlie  game  field  again  */ 

bar(3*x/2,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

/*  Redraw  the  tree  */ 

I* *******★***********★******#*******************★*********+*********# j 

moveto(20*x,I  l*y);  lineto(25*x,9*y); 
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lineto(30*x,7*y);  lineto(35*x,5*y); 
lineto(40*x,3  *y );  lineto(45  *x,5  *y ); 
lineto(50*x,7 *y);  lineto(55  *x,9*y ); 
lineto(60*x,il*y); 

moveto(30*x,l  l*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,l  l*y); 

moveto(35*x,5*y);  lineto(38*x,7*y); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
lineto(50*x,ll*y); 
moveto(46*x,9*y);  lineto(50*x,7*y); 


/***%******%******%*******%************************%*****%***********%*/ 


static  void  confimi  exit(void) 

I 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
ounextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  gelch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
cli  =  getch  (); 

if((ch  ==  y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 


I 

switch  (ch)  ( 
case  ’y':  in_the_exercise  =  0; 
break; 

case  ’Y':  in_the_exercise  =  0; 
break; 
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case  ’a’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

) 

} 
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/*  PROGRAM  :  q458.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  4, 1990 
REVISED  :  Apr.  4,  1990 


DESCRIPTION  :  This  program  contains  the  eighth  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPELER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defmed(__TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defmed(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  fmdnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _G  RAPH_T JDEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 
static  void  show_alg  (void); 
static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  contirm_exit  (void); 

/*********************************************£************************/ 
/*  miscellaneous  global  variables  */ 

/**********************************************************************/ 
int  in_the_exercise  =  1; 

^♦i*********************************************************************^ 

/*  graphic  initialization  variables  */ 

/**********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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y**********************************************************************y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y************%*********************************************************y 
static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 

y**********************************************************************y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y**********************************************************************y 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

if(graph_error  <  0){ 
puts(grapherrormsg(graph_error) ) ; 
exit(l); 
i 

y%***%*****$:fc**£3|c*%:4c*****)|c*%:ifc****************************:t:******%****y 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y********************************************************************y 

settext(); 

y********************************************************************y 

if  ((graphmode  ==  CGAH1)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillsty  le(SOLID_FILL,BLACK) ; 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiUstyle(SOLID_FTLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 

y*  *********  ************************************************************y 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/:.23*y,179*x/2,97*y/4k 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’) «  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  Y)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

se  tcolor(q  u  i  tcolor) ; 

) 

switch  (ch)  { 
case  ’y’:  closegraph(); 
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videoinitQ; 

exiu.0); 

break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y  ,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

^*********************************************************************>iy 

static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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y******************  .*.  ******************************************  *********  j 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y**************************%**%****************************************y 


void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 


/**********************************************************************/ 
/*  main  routine  that  calls  exer  routine  */ 

y'*  *********************************************************************/ 

void  main() 

( 

exer(); 

} 


y1*  *******************! *=*************************************************/ 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

^*  ***************************************  ******************************/ 
static  void  exer(void) 

{ 

char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x,Max  Y-y/2); 
outtextxy(38*x,y/2, "EXERCISE  8”); 

^*  *******************************************************************y 

outtextxy(2*x,2*y,"Give  the  inorder  listing  of  the  vertices  for  the  following  binary 
tree."); 

y* ******************************* ************************************^ 


1312 


pieslice(40*x,3*y,0, 359,2); 
pieslice(30*x,5*y, 0,359,2); 
pieslice(50*x,5*y,0,359,2); 
pieslice(25*x,7*y,0,359,2); 
pieslice(35*x,7*y,0,359,2); 
pieslice(45*x,7*y, 0,359,2); 
pieslice(55*x,7*y,0, 359,2); 
pieslice(20*x,9*y  ,0,359,2); 
pieslice(30*x,9*y,0, 359,2); 
pieslice(40*x,9*y, 0,359,2); 
pieslice(50*x,9*y,0, 359,2); 
pieslice(60*x,9*y,0,359,2); 
moveto(20*x,9*y);  lineto(25*x,7*y); 
lineto(30*x,5*y);  lineto(40*x,3*y); 
lineto(50*x,5*y);  lineto(55*x,7*y); 
lineto(60*x,9*y); 

moveto(30*x,9*y);  lineto(35*x,7*y); 
lineto(40*x,9*y); 

moveto(30*x,5*y);  lineto(35*x,7*y); 

moveto(50*x,5*y);  Iineto(45*x,7*y); 

lineto(50*x,9*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(28*x,5*y,"B"); 

outtextxy(5 1  *x,5*y,"C'); 

outtextxy(23*x,7*y,"D''); 

outtextxy(36*x,7*y,"E"); 

outtextxy(43*x,7*y,"F"); 

outtextxy(56*x,7*y,"G"); 

outtextxy(20*x,19*y/2,"H''); 

outtextxy(30*x,19*y/2,"I"); 

outtextxy(40*x,19*y/2,"J"); 

outtextxy(50*x,19*y/2,"K"); 

outtextxy(60*x,19*y/2,"L"); 

while  (in_the_exercise  ==  1)  [ 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need  :"); 
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outtextxy(15*x,15*y,”  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y, "Enter  your  choice  here  —  >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(foremlor); 


switch  (Ch)  { 

case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2,179*x/2,21*y); 
bar(2*x,13*y,179*x/2,49*y/2.); 
setcolor(forecolor); 
show_alg(); 
break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,”You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  ”); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,37*y/2, 179*x/2,22*y); 
bar(2*x,13*y,179*x/2,49*y/2); 
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setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,”c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20iy, "solution.  So  press  any  key  to  ”); 
outtextxy(52*x,2 1  *y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor  (forecolor) ; 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confirm_exit(); 
break; 

default  :  break; 


closegraphO; 

1 

^*  ***********************  **********************************************/ 
/*  This  routine  gives  inorder  traversal  of  a  binary  tree  algorithm  */ 

static  void  show_alg(void) 

{ 

outtextxy(15*x,14*y, "INORDER  TRAVERSAL  ALGORmiM  OF  A  BINARY 

TREE"); 

outtextxy(2*x,15*y,”Step  1  (go  left)  Go  to  the  left  subtree,  if  one  exists,  do  a  in- 
order"); 

outtextxy(2*x,16*y,"  traversal."); 
outtextxy(2*x,17*y,"Step  2  (visit)  Visit  the  root."); 

outtextxy(2*x,18*y,"Step  3  (go  right)  Go  to  the  right  subtree,  if  one  exists,  and  do 
a  inorder"); 
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outtextxy(2*x,19*y,"  traversal."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

} 

y*** ******************************************************************  *y 

/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

y**********************************************************************y 

static  void  compare_soluticns(void) 

{ 

setcoior(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*v/4,179*x/2,49*y/2); 
setcolor(forecolor ); 

outtextxy(3*x,29*y/2, "Inorder  Listing"); 
moveto(2*x,  1 5*y);  lineto(42*x,  1 5*y); 
outtextxy(3*x,16*y,"H,  D,  B,  I,  E,  J,  A,  F,  K,  C,  G,  L”); 

y*  ************************ *******************************************y 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

sc  tcolor(forecolor) ; 

} 
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y**********************************************************************y 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

y**********************************************************************y 

static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

outtextxy(3*x,29*y/2,"Inorder  Listing"); 
moveto(2*x,15*y);  lineto(38*x,15*y); 

y**************=k*****************jf***********************************y 

outtextxy(3*x,16*y,"H");  /*  Visit  H  */ 
setcolor(backcolor); 
moveto(20*x,9*y);  lineto(25*x,7*y); 
setlinestyle(3,0,3); 

setcolor(forecolor); 
moveto(20*x,9*y);  lineto(25*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(  backcolor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

y********************************************************************y 

outtextxy(6*x,16*y,"D");  /*  Visit  D  */ 

setcolor(backcolor); 

moveto(30*x,5*y);  lineto(25*x,7*y); 

setlinestyle(3,0,3); 

se  tcol  orf  forecol  or) ; 

moveto(30*x,5*y);  lineto(25*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y*  *******************************************************************/ 

outtextxy(9*x,16*y,"B'');  /*  Visit  B  */ 
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setcolor(backcolor); 
moveto(30*x,5*y);  lineto(35*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(30*x,5*y);  lineto(35*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcoior); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y********************************************************************/ 

outtextxy(12*x,16*y,"I");  /*  Visit  I  */ 

setcolor(backcolor) ; 
moveto(35*x,7*y);  lineto(30*x,9*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(35*x,7*y);  lineto(30*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
se  tcolor(  bac  kcolor) ; 
bar(29*x,23*y,50*x,49*y/2); 
se  tcolor(  forecol  or) ; 

y********************************************************************^ 

outtextxy(15*x,16*y,"E");  /*  Visit  E  */ 

setcolor(backcolor); 

moveto(35*x,7*y);  lineto(40*x,9*y); 

setlinestyle(3,0,3); 

se  tcolor(forecolor) ; 

moveto(35*x,7*y);  lineto(40*x,9*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

f*#*$#******************************)icjc*)l')ic*****)c**********************f 

outtextxy(l 8*x,16*y,"J");  /*  Visit  J  */ 
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setcolor(backcolor); 
moveto(40*x,3*y);  lineto(30*x,5*y); 
setiinestyle(3,0,3); 
setcolor(forecolor); 
moveto(40*x,3*y);  lineto(30*x,5*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor) ; 

/********************************************************************/ 

outtextxy(2 1  *x,l  6*y,"A");  /*  Visit  A  */ 

setcolor(backcolor); 

moveto(50*x,5*y);  lineto(40*x,3*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(50*x,5*y);  lineto(40*x,3*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 

outtextxy(24*x,l6*y,"F");  /*  Visit  F  */ 

setcolor(backcolor); 

moveto(45*x,7*y);  lineto(50*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(45*x,7*y);  lineto(50*x,9*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
se  tcolor(  f orec  olor) ; 

outtextxy(27*x,16*y,"K”);  /*  Visit  K  */ 
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setcolor(backcolor); 
moveto(50*x,5*y);  lineto(45*x,7*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(50*x,5*y);  lineto(45*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/**  **********%************************$********%*********************/ 

outtextxy(30*x,16*y,"C");  /*  Visit  C  */ 

setcolor(backcolor); 

moveto(50*x,5*y);  lineto(55*x,7*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(50*x,5*y);  lineto(55*x,7*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(33*x,16*y,"G”);  /*  Visit  G  */ 

setcolor(backcolor); 

moveto(55*x,7*y);  lineto(60*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(55*x,7*y);  lineto(60*x,9*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^* ******************************************************** ***********/ 
outtextxy(36*x,16*y,"L");  /*  Visit  L  */ 
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Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor) ; 


/*  Clean  the  game  field  again  */ 
bar(3*x/2,47*y/4,179*x/2,49*y/2); 
setcolor(forecolor) ; 


^* ****************  ***************  **************************:,.*********/ 


/*  Redraw  the  tree 


*/ 


/* **************************************************** 


************!) 


moveto(20*x,9*y);  lineto(25*x,7*y); 
lineto(30*x,5*y);  lineto(40*x,3*y); 
linciu(50*x,5*y);  lineto(55*x,7*y); 
lineto(60*x,9*y); 

moveto(30*x,9*y);  lineto(35*x,7*y); 
lineto(40*x,9*y); 

moveto(30*x,5*y);  lineto(35*x,7*y); 
moveto(50*x,5*y);  lineto(45*x,7*y); 
lineto(50*x,9*y); 
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static  void  confirm_exit(void) 

{ 

char  ch; 


outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  V)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  V:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

se  tcolor(forecolor) ; 

bresik; 

default :  break; 

} 
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/*  PROGRAM  :  q459.c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Apr.  5, 1990 

REVISED  :  Apr.  5, 1990 

DESCRIPTION  :  This  program  contains  the  ninth  exercise  about  the 
binary  trees  and  traversals. 

MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 

V 

/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#defuie  bioskey(a)  _bios_keybrd(a) 

#define  findfiist(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_fuidnext(a) 

#define  ffblk  fmd_t 

#define  ff_name  name 

#elif  definedC  ZTC _ )  /*  Zoilech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_nanie  name 

#define  ff_attrib  attribute 

#endif 

#defme  GRAPH  T_DEFINED 
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/*  function  prototypes  */ 


/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


/♦ft****************************************************'!.***************/ 

/*  miscellaneous  global  variables  */ 


k***************************************************************^/ 


int  in_the_exercise  =  1 ; 


/*  graphic  initialization  variables  */ 

int  curr.jnode; 
int  grapbdriver; 
int  graphmode; 
int  graph_error; 
int  backcolor; 


int  forecolor; 
int  quitcolor; 
int  x,  y,  MaxX,  MaxY; 
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y* ************** -******************************************************y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**********************************************************************y 

static  void  register_drivers(void) 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


y**********************************************************************y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y*********************************************************************,^ 

static  void  init_graph(void) 

I 

int  xasp.  yasp; 


register_dri  vers(); 
graphdiiver  =  DETECT; 

y*  *  *  *  *  *  **  *  *  %  *  *  if*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * * *  *  *  *  *  *  *  *  *  %  *  *  *  *  *  *  *  *  *  *  *  *y 

in  it  graph(  & graphdr  iver  ,&  graphmode , "  ” ) ; 
grapherror  =  graphresult(); 

y********************************************************************^/ 

if(graph_error  <  0)( 
puts(grapherronnsg(graph_error)); 
exit(l ); 


y*****************************************************************^*,^ 

MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y^********************************************************^********^ 

settext( ); 

y***********************************************4,********************y 


if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphinode  =  MCGAHI)  II  (graplunode  ==  ATT400HI))  { 
setfUlstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfiIIstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

I 

I*************************************************’*'********************/ 

static  void  confirm_graph_exit(void) 

{ 

struct  __onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist^chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  inshidecurQ; 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?”); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  ( ); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3  l*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  ( 
case  ‘y’-.  closegraph( ); 
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videoinit(); 

exit(0); 

break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’;  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’;  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break. 

default ;  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist );  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

( 

settextstyJe(0,0,0); 
setlinestylet  0,4,3); 

settextjustify(HORlZ_DIR,CENTER_TEXT); 
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****  +  +  *  +  +  *  +  *  +  ******  +  **  +  *  +  +  **  +  +  +  +  ******  +  ** 


****************************/ 


/* 

/* 


Equivalent  of  press_a_key  function  for  graphics  screen  */ 

***********************************************  +  **  +  ***  +  **  +  **4<*****  +  **y 


void  Pause(i.j) 
int  i,  j; 


settext(); 

outtextxyfi  ,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<«”); 
if( waitkey(  )==ESC)  confum_graph_exit(); 


/****** *****  ******* ******************************** ****** ************** j 

/*  main  routine  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 

( 

exer(); 


/^t******************************************  ('*****************><<#******■('/ 

/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

static  void  exer(void) 

{ 

char  Ch; 

init_graph( ); 
setcolor(forecolor); 
bar(0,0,MaxX.MaxY); 
rectangle(x,y.MaxX-x,MaxY -y/2); 
outtextxyi  38  *x,y/2, "EXERCISE  9"); 

/%%%%*****%*%%**%***%%%**%*%%****  sk***********************************^ 

outtextxy(2*x.2*y,”Give  the  inorder  listing  of  the  vertices  for  the  following  binary 
tree.”); 
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pieslice(40*x,3*y,0,359,2); 
pieslice(35*x,5*y,0,359,2); 
pieslice(45*x,5*y  ,0,359,2); 
pieslice(30*x,7*y,0,359,2); 
pieslice(38*x,7*y,0,359,2); 
pieslice(50*x,7*y,0,359,2); 
pieslice(25*x,9*y  ,0,359,2); 
pieslice(35*x,9*y, 0,359,2); 
pieslice(42*x.9*y,0, 359,2); 
pieslice(46*x,9*y,0,359,2); 
pieslice(55*x,9*y  ,0,359,2); 
pieslice(20*x,  1 1  *y, 0,359, 2); 
pieslice(30*x,l  J  *y, 0,359, 2); 
pieslice(38*x.l  l*y,0,359,2); 
pieslice(42*x.l  l*y,0,359,2); 
pieslice(50*x,  1 1  *y  .0,359,2); 
pieslice(60*x,l  l*y, 0,359,2); 
moveto(20*x,l  l*y);  lineto(25*x,9*y); 
lineto(30*x,7*y);  lineto(35*x,5*y); 
lineto(40*x,3*y);  lineto(45*x,5*y); 
lineto(50*x,7*y);  Hneto(55*x,9*y); 
lineto(60*x,i  I*y); 

moveto(30*x.l  l*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,l  1  *y); 

movetc*(35*x,5*y);  lineto(38*x,7*y); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
luieto(50*x,l  l*y); 

moveto(46*x,9*y);  lineto(50*x,7*y); 

outtextxy(79*x/2,5*y/2,"A"); 

outtextxy(33*x,5*y,"B"); 

outtextxy(46*x,5*y,"C"); 

outtextxy(28*x,7*y,”D”); 

outtextxy(39*x,7*y,”E"); 


outtextxy(5 1  *x,7*y,"F”); 
outtextxy(23*x,9*y,”G '); 
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outtextxy(33*x,9*y,"H"); 

outtextxy(43*x,9*y 

outtextxy(47*x,9*y  ,"J" ); 

outtextxy(56*x,9*y,"K"); 

outtextxy(20*x,23*y/2,"L"); 

outtextxy(30*x,23*y/2,"M"); 

outtextxy(38*x,23*y/2,"N"); 

outtextxy(42*x,23*y/2,"0"); 

outtextxy(50*x,23*y/2,”P"); 

outtextxy(60*x,23*y/2,"Q"); 

/***********************:t<******+  +  ***+**>t<***,4<**,i<+  +  >i<++***,i,,t<****  +  *++,t,*,|,,iy 

while  (in_the_exercise  ==  1)  ( 

outtextxy(  15*x,14*y, "Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,”  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y."  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(  15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  Tliis  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y. "Enter  your  choice  here  —  >"); 

Ch  =  getch  ( ); 

if(Ch==ESC )  confinn_graph_exit(); 

while  (!((Ch  ==  a’)  II  (Ch  ==  ‘b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d* )))  ( 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm _graph_exit(); 

if( (Ch  ==  'a')  II  (Ch  ==  V)  II  (Ch  ==  V)  II  (Ch  ==  ’d’))  ( 

setcolorf  backcolor ); 

bai(50*x.37*y/2,88*x,20*y); 

sefcolorf  forecolor); 


switch  (Chi  ( 

case  'a':  outtcxtxy(47*x,19*y,"a"); 
,nittextxy(<>2*x,l9*y,”You  want  to  see  the  algorithm  "); 
outtextxy(52*x.20*y,  again.  Press  any  key  to  continue  ”); 
Pause(30'x.24*y); 
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setcolor(backcolor); 

bar(50*x.37*y/2,179*x/2,21*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcoloi  (forecolor); 

show_alg(); 

break; 

case  V:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,l  3*y,  1 79*x/2,49*y/2); 

setcolor(  forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,”c"); 
outtextxy(52*x,19*y?"You  want  to  see  step  by  step"); 
outtextxy(52*x.20*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,21*y, "continue."); 

Pause(30*x,24*y ); 

setcolor(backcolor); 

bar(50*x.37*y/2.179*x/2,22*y); 

bar(2*x,13*y,179*x/2.49*y/2); 

setcolor(  forecolor); 

step_solution( ); 

break; 

case 'd-:  outtextxy(47*x,l  9*>  ."d"); 
confinn_exit( ); 
break; 

default  :  break; 


closegrapht ); 
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/*  This  routine  gives  inorder  traversal  of  a  binary  tree  algorithm  */ 

static  void  showalg(void) 


outtextxy(l5*x,14*y, "INORDER  TRAVERSAL  ALGORITHM  OF  A  BINARY 
TREE"); 

outtextxy(2*x,15*y,"Step  1  (go  left)  Go  to  the  left  subtree,  if  one  exists,  do  a  pre- 
order"); 

outtextxy(2*x,16*y,"  traversal."); 
outtextxy(2*x,17*y,"Step  2  (visit)  Visit  the  root."); 

outtextxy(2*x,18*y,"Step  3  (go  right)  Go  to  the  right  subtree,  if  one  exists,  and  do 
a  preorder"); 

outtextxy(2*x,  1 9*y ,"  traversal."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 


/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

y************************************%**********%**********************y 
static  void  compare_solutions(void) 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(  forecolor); 


outtextxy(3*x,29*y/2,"  Inorder  Listing"); 
moveto(2*x.l 5*y );  iineto(60*x,I 5*y); 

outtextxy(3*x.l6*y,"L,  G,  D,  B,  M.  H,  E.  N,  I,  A,  C,  O.  J,  P,  F.  K.  Q"); 
Pause(30*x,24*y); 

setcolobbackcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x.47*y/4,l 79*x/2,49*y/2 ), 
setcolort  forecolor); 
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/***************%**********************************************%*******/ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

static  void  step_so!ution(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,47*y/4,179*x/2,49*y/2); 

setcolor(  forecolor); 

outtextxy(3*x,29*y/2, "Inorder  Listing"); 
moveto(2*x,15*y);  lineto(53*x,15*y); 

outtextxy(3*x,16*y,"L");  /*  Visit  L  */ 

setcolort  backcolor); 

moveto(20*x,l  1  *y);  lineto(25*x,9*y ); 

setlinestyle(3,0,3 ); 

setcolori  forecolor); 

moveto(20*x,l  l*y);  lineto(25*x,9*y); 
setlinestyle(U,0,3 ); 

Pause(30*x,24*y ); 
setcolort  backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolort  forecolor); 

I**********#****************#****#****,*********#*****#****#**********/ 

outtextxyt6*x.lf3*y,"G");  /*  Visit  G  */ 
setcolort  backcolor); 
moveto(30*x.7*y);  lineto(25*x,9*y); 
setlinestylef  3.0.3); 
setcolort  forecolor); 
moveto(30*x.7*y);  lineto(25*x,9*y); 
setlinestylet  0.0,3); 

Pauset30*x,24*y ); 
setcolort  backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolort  forecolor); 

/fr*******************:************************************************/ 

outtextxy(9*x,10*y,”D");  /*  Visit  D  */ 
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setcolor(backcolor); 
moveto(30*x,7*y);  lineto(35*x,5*y); 
setlinestyle(3,0,3 ); 
setcolor(forecolor); 
moveto(30*x,7*y);  lineto(35*x,5*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^i*******************************************.^************************^ 

outtextxy(12*x,16*y,"B");  /*  Visit  B  */ 

setcoloi  ( backcolor ); 
moveto(38*x,7*y);  lineto(35*x,5*y); 

setliiiestyle(3,0,3); 

setcolor(  forecolor); 
moveto(38*x,7*y);  lineto(35*x,5*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^***************************%*#%******%*%*******%********%*t*4<%%**%>t<*/ 

outtextxy(15*x,16*y,"M");  /*  Visit  M  */ 

setcolor(  backcolor); 

moveto(30*x,l  1  *y);  lineto(35*x,9*y); 

setlinestyle(3,0,3); 

setcolor(  forecolor); 

inoveto(30*x,l  l*y);  lineto(35*x,9*y); 
setlinestyle(0,0.3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y*********************%**%***********************************1',***.|'**4 ,  j 

outtextxy(  18*x,16*y."H");  /*  Visit  H  */ 
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setcolor(backcolor); 
moveto(38*x,7*y);  lineto(35*x,9*y); 
setlinestyle(3.0,3); 

setcolor(forecolor); 

moveto(3 8  *x  ,7  *y ) ;  lineto(35  *x  ,9*v ); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(  forecolor) ; 

/********************************************************************/ 

outtextxy(21*x,16*y,"E");  /*  Visit  E  */ 

setcolor(backcolor); 

moveto(38*x.7*y);  lineto(42*x,9*y); 

setlinestyle(3,0.3); 

setcolor(forecolor); 

moveto(38*x,7*y);  lineto(42*x,9*y); 

setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/St-*******************************************************************/ 

outtextxy(24*x,l  6*y,"N");  /*  Visit  N  */ 

setcolor(backcolor); 

moveto(38*x,i  l*y);  lineto(42*x,9*y); 

setlinestyle(3,0,3); 

setco!or(  forecolor); 

moveto(38*x1l  l*y);  lineto(42*x,9*y); 
setlinestyle((),0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

/***%**%******%*******%*%***************%**%%*******%%***%**%********y 

outtextxy(27*x,16*y,"I");  /*  Visit  I  */ 
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setcolor(backcolor); 
moveto(35*x,5*y);  lineto(40*x,3*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(35*x,5*y);  lineto(40*x,3*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setco!or(forecolor); 

+ ************  Jtt******  *  Jfc****  ***)(<**  ***  +  ***♦**)►  +  %**%*)(*  j 

outtextxy(30*x,16*y,"A");  /*  Visit  A  */ 

setcolor(backculor); 
moveto(45*x,5*y);  lineto(40*x,3*y); 
setlinestyle(3,0,3); 

setcolor(forecolor); 
moveto(45*x.5*y);  lineto(40*x,3*y); 
setliiiestyle(0,U,3); 

Pause(30*x,24*y); 

setcoloi(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(  forecolor); 

outtextxy(33*x,I6*y,”C”);  /*  Visit  C  */ 
setcolor(backcolor); 
moveto(45*x,5*y);  lineto(50*x,7*y); 
setlinestyle(3.0,3); 

setcolor(forecolor); 
moveto(45*x.5*y);  lineto(50*x,7*y): 
setlinestyle(0,0,3); 

Pause(30*x.24*y ); 
setcolor(backcolor); 
bar(29*x,23*y.50*x,49*y/2); 
setcolor(  forecolor); 

^ft*******************************************************************/ 

outtextxy(36*x,16*y,”0");  /*  Visit  O  */ 
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setcolor(backcolor); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 

moveto(42*x,l  l*y);  lineto(46*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
se  t  col  or(  forec  ol  or) ; 

y* ********************************************************** *********y 

outtextxy(39*x,16*y,"J");  /*  Visit  J  */ 

setcolor(backcolor); 

moveto(50*x,l  l*y);  lineto(46*x,9*y); 

setline  style(3,0,3  >; 

setcolor(forecolor); 

moveto(50*x,l  l*y);  lineto(46*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,5(J*x,49*y/2); 
setcolor(  forecolor); 

y*****************************************************************,',,'.,^ 

outtextxy(42*x,16*y,”P");  /*  Visit  P  */ 

setcolor(backcolor); 
moveto(50*x,7*y );  lineto(46*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 
nioveto(50*x,7*y);  lineto(46*x,9*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y ); 
setcolortbackcoloi ); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

y********************************************************************y 

outtextxy(45*x,16*y,"F'');  /*  Visit  F  */ 
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setcolor(backcolor); 
moveto(55*x,9*y);  linvto(50*x,7*y); 
setlinestyle(3,0,3); 

se  tcolor(  forec  olor ) ; 
moveto(55*x,9*y);  lineto(50*x,7*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(48*x,16*y,"K”);  /*  Visit  K  */ 

setcoIor(backcolor); 

moveto(55*x.9*y);  lineto(60*x,l  l*y); 

setlinestyle(3.0,3); 

setcolor(forecolor); 

moveto(55*x,9*y);  lineto(60*x,l  l*y); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcoior(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

outtextxy(51  *x,16*y,"Q");  /*  Visit  Q  */ 

Pause(30*x,24*y ); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

/********************************************************************/ 
/*  Clean  the  game  field  again  */ 
bar(3*x/2,47  *y/4,l  79*x/2,49*y/2 ); 
sttcolor(  forecolor); 

/*  Redraw  the  tree  */ 

^♦t******************************************************************^ 

moveto(20*x,l  I*y):  lineto(25*x,9*y); 
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lineto(30*x,7*y);  lineto(35*x,5*y); 
lineto(40*x,3*y);  lineto(45*x,5*y); 
lineto(50*x,7*y);  lineto(55*x,9*y); 
lineto(60*x,l  l*y); 

moveto(30*x,l  l*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,l  l*y); 

nioveto(35*x,5*y);  Iineto(38*x,7*y); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
lineto(50*x,l  1  *y); 
moveto(46*x,9*y);  lineto(50*x,7*y); 

) 

/**************************%**************************>l<******>l<********* 

static  void  confirm_exit(void) 

I 

char  ch; 

outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,2i*y,”Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,.c_<*y,"  Please  type  y  or  n">; 
til  =  getch  (); 

if((ch  ==  y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

I 

switch  (ch)  | 

case  ’y’:  in_  the_exercise  =  0; 
break; 

case  ’Y‘;  in_the_exercise  =  0; 
break; 
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case  'n':  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default  :  break; 
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#define  _GRAPH_T_DEF1NED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 
static  void  show_alg  (void); 
static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

/*  miscellaneous  global  variables  */ 

******* **************************************************************/ 
int  in_the_exercise  =  1; 

/*  graphic  initialization  variables  */ 

/*  *******#**#*************$#**: 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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y^**************^*******************************************************/ 


/*  This  function  is  used  for  including  drivers  to  the  executable  code 


*/ 


y**********************************************************************y 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


y*****************************************************************)fc****y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y**********************************************************************y 

static  void  init _graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

^fc****  ***********************  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *y 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

^********************************************************************y 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

) 

y*  ****************************************************************** *^ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y*********************************************************^**********/ 

settext(); 

^*  ************************************* ******************************/ 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  li  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 

^*  ******************************************************************** 
static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  { 
case  ’y’:  closegraph(); 
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videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(b'>ckco!or); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(): 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  default  values  */ 


/ 

/ 


static  void  settext(void) 

( 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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y**********************************************************************y 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y**********************************************************************y 

void  Pause(i,j) 
int  i,  j; 

{ 

settextf); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<«”); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 


y**********************************************************************y 

/*  main  ruutine  that  colls  exer  routine  */ 

void  main() 

{ 

exer(); 


/*  Routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

y*  **************************************************** ****************  *  y 

static  void  exer(void) 

( 

char  Ch; 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  10"); 

outtextxy(15*x,2*y, "Evaluate  the  following  Polish  notation  expression”); 
outtextxy(30*x,3*y,”+  *  +  34-12-3/4  2"); 

y********************************************************************y 
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while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  as  you  need 
outtextxy(15*x,15*y,"  a)  I’m  done,  I  want  to  compare  my  solution  with  yours.”); 
outtextxy(15*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit.”); 
outtextxy(15*x,18*y, "Enter  your  choice  here  —  >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c')  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,18*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch-ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

} 

) 

switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,18*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,19*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,20*y,”key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’b’:  outtextxy(47*x,18*y,"b"); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step"); 
outtextxy(52',  A,I9*yJ”solution.  So  press  any  key  to  "); 
outtextxy(52*x,20*y,  "continue."); 

Pause(30*x,24*y); 

setf'o'oribackcolor): 
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bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 
confirm_exit(); 
break; 

default  :  break; 


} 

closegraph(); 


/********************************************************** ********** 
/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

static  void  compare_solutions(void) 

{ 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

outtextxy(35*x,10*y,''The  answer  is  -6"); 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 
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z*********************************************************************^ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/**********************************************************************/ 
static  void  step_solution(void) 


setculor(backcolor);  /*  Clean  the  game  field  */ 
bar(3*x/2,4*y,179*x/2,49*y/2); 
se  tcolor(forecolor) ; 

/*******************************************************************= 
outtextxy(30*x,8*y,"  +*  +  34  -  1  2-3/4  2"); 

Pause(30*x,24*y); 

/****4:***4:*****************4:********************#*******ii<:Ji<:**********3i<l 

outtextxy(30*x,9*y,"=  +  *7-12-3/4  2”); 

Pause(30*x,24*y); 

/********************************************************************/ 
outtextxy(30*x,10*y,"=  +  *  7  (-1)  -  3  /4  2"); 

Pause(30*x,24*y); 

************************************** *****************************/ 
outtextxy(30*x,l  l*y,”=  +  (-7)  -3/4  2”); 

Pause(30*x,24*y); 

/*************************************»**************************%***/ 
outtextxy(30*x,12*y,"=  +  (-7)  -  3  2"); 

Pause(30*x,24*y); 

/**************************************************************+*****/ 
outtextxy(30*x,13*y,"=  +  (-7)  1"); 

Pause(30*x,24*y); 

outtextxy(30*x,14*y,"=  -6"); 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,l  79*x/2,49*y/2); 

setcolor(forecolor); 
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y********************************************************************** 

static  void  confirm_exit(void) 

{ 

char  ch; 

outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
cuttex:xy(52*x,19*y,”Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’»)  { 
outtextxy(53*x,22*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,2 1  *y,  179*x/2,49*y/2); 
setcolor(forecolor) ; 

} 

switch  (ch)  { 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =0; 
break; 

case  ’n’;  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

} 
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/*  PROGRAM  :q4511.c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Apr.  5,  1990 

REVISED  :  Apr.  5,  1990 

DESCRIPTION  :  This  program  contains  the  eleventh  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou  h" 

#if  defined! _ TURBOC. _ )  /*  Turbo  C  */ 

# include  <dir  h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfijst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  fflilk  find_t 

#define  ff  name  name 

#elif  defuied(_ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#defuie  ff  attrib  attribute 
#endif 


1351 


#define  _GRAPH_T_DEF1NED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  v oid  compare_solutions  (void); 
static  void  confnm_exit  (void); 

/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 

/*  graphic  initialization  variables  */ 

^ft*********************************************************************^ 

int  currrnode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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y**********************************************************************/ 

/*  This  function  is  used  for  including  drivers  to  die  executable  code  */ 

static  void  p*gister_drivers(void) 

( 

if(registerhgidriver(CGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidnver(ATT_  driver)  <  0)  exit(l); 

} 

y**********************************************************************y 
/*  This  friction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

I 

int  xasp.  yasp; 

registerdriversO; 
graphdriver  =  DETECT; 

y***************************l|<lt<******************************  +  ****  +  **+y 

initgraph(&graphdriver,&graphmode,""); 
graph_etTor  =  graphresult(); 

y*******************************************************************’^ 
if(graph_error  <  0)( 
puts(grapherronnsg(graph_error)); 
exit(  1 ); 

I 

y**********************:M  ********************************************/ 

MaxX  =  g*-miaxx( ); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25: 

settext( ); 

y********************************************************************/ 

if  ((graplunode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  ( 
setfillstyle(SOLID_FlLL.BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  ( 

setfilistyle(SOLID_FILL,BLCE)- 
backcolor  =  BLUE; 
quitcolor  =  RET, 

) 

forecoloi  =  WHITE; 


static  void  confirm_graph_exi*(void) 

( 

struct  _onkey_t  *kblis* 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_..iouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
cli  =  getcli  (); 

while  (!((ch  ----  ’y‘)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  ( ). 

if((ch  ==  V)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  'N  )) 

setcolor(backcolor ); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  ( 

case  V:  closegiaphf ); 
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videoinit(); 

exit(O); 

break; 

case  ’Y’.  closegraph('); 
videoinit(); 
exit(0); 
break; 

case  ’n’;  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bai(3 1  *x,23*y,G9*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N';  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default  ;  break; 

) 

hidecurf); 

if(_mouse&MS_CURS )  msshowcurf ); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


^*  ****#***********+********+**************************+**********+*****/ 
/*  This  function  sets  the  text  default  values  */ 

I**  itt****************************************************************;'**/ 

static  void  settext(void) 

( 

settextstyle(O.O.O); 
setlinestyle(0,4.3 ); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/♦ifr********************************************************************^ 

void  Pause(i.j) 
int  i,  j; 

I 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()-=ESC)  confirm_graph_ex:t(); 


/***********************************************************%**********/ 
/*  main  routine  that  calls  exer  routine  */ 

/♦itf********************************************************************/ 

void  main( ) 

I 

exer(); 


y**********  fc***********************************************************/ 

/*  Routine  that  asks  the  question,  then  depending  on  die  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

^****************************%**************************%H<*************y 

static  void  exer(void) 


char  Ch; 


iiiit  _graph(); 
setcolort  forecolor); 
bar(0,(),MaxX.MaxY ); 
rectanglet  x.y  .MaxX-x,MaxY-y/2 ); 
outtextxyt  38*x.y/2."EXERCISE  11"); 

outtextxyt  15*x,2*y, "Evaluate  the  following  Polish  notation  expression"): 
outtextxyt  30*x.3*y,”+  *4/62-  +  42  5"); 
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while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  as  you  need 
outtextxy(15*x,15*y,"  a)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm _graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  =  V)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,18*y,"  Please  type  a,  b,  c  or  d”); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,35*y/2,88*x,20*y); 

setcolor(forecolor); 


switch  (Ch)  { 

case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,18*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,l9*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,20*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x.35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’b’:  outtextxy(47*x,18:,'y,"b"); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,19*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,20*y, "continue."); 

Pause(30*'x,24*y); 
setcoloi  ( backcolor ); 
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bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 


case  ’c’:  outtextxy(47*x,18*y,"c"); 
confirm_exit(); 
break; 

default  :  break; 


closegraphO; 


/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

/****+*+*********+*+**+*****++*++#*********+*** ***++++**+++++++*++**+*+/ 
static  void  compare_solutions(void) 

( 


setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x  ,4*y ,  1 79*x/2,49*y/2); 
setcolor(  forecolor); 

outtextxy(35*x,10*y,"The  answer  is  13"); 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolort  forecolor); 
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I*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

^^fr*********************************************************************/ 

static  void  step_solution(void) 

( 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(3*x/2,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

^♦i*******************************************************************/ 

outtextxy(30*x,8*y,"  +*4/62-+42  5"); 

Pause(30*x,24*y); 

/*******************************i|<*i(!!|<>(ts(<************l|<*****>|<*i<<*#>|>******i|y 

outtextxy(30*x,9*y,"=  +  *43-  +  42  5"); 

Pause(30*x,24*y ); 

outtextxy(30*x,10*y,"=  +  12  -  +  4  2  5"); 

Pause(30*x,24*y); 

^I*******************************************************************^ 

outtextxy(30*x,l  1  *y,"=  +  12-6  5"); 

Pause(30*x,24*v); 


outtextxy(30*x,12*y,"=  +  12  1"); 

Pause(30*x,24*y); 

%9fe9fe9te^e9|e94«a4c9fe3f<34<3fe9fe3f(3fc3f(3tr94r94c3((4c3fc3fcaf<3t(9f<3fc3|(at(9|cafe3feafcafe7fe34<3fe9^af<^<9f«%3te9|()fe9fc%afc3|(9f<3|<9fe3fe9(<9fc3fesfc9f<a(<9fe3f<94<9t<3|ea|e3(<  J \<  j 


outtextxy(30*x,13*y."=  13"); 
Pause(30*x,24*y ); 


setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 
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/a**************************#******************************************/ 

static  void  confiunn_exit(void) 


( 

char  ch; 


outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,19*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,22*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y* )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  I!  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,2 1  *y ,  1 79*x/2,49*y/2); 
setcolor(forecolor); 


switch  (ch)  ( 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 


case  ’N’;  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22’t'y); 

setcolor(  forecolor); 

break; 


default :  break; 
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/*  PROGRAM  :  q4512.c 

AUTHOR  :  Atilla  BAKAN 

DATE  :  Apr.  6,  1990 

REVISED  :  Apr.  6,  1990 

DESCRIPTION  :  This  program  contains  the  twelfth  exercise  about  the 
binary  trees  and  traversals. 


MACHINE/COMPELER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h” 

#if  defined ( _ TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defmed(M_I86)  &&  !defined(_ZTC_J  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_Findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zonech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

^****************************************************************** ****^ 
/*  miscellaneous  global  variables  */ 

y*  *************************************************************** ******/ 

int  in_the_exercise  =  1; 


j*  ******%*********************************>t:****%*********************J{'::i|c 

/*  graphic  initialization  variables  */ 

j *  ★  ★*****★★***********:♦:**************:*:***:*:★**************************** 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/**********************************************************************y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y****** *************************************************************** */ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(  ATT_driver)  <  0)  exit(l); 

) 

^**********************************************************************y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

^********************************************************************y 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

if(graph_error  <  0){ 

puts(grapherTormsg(graph_error)); 

exit(l); 

} 

MaxX  =  getmaxx(); 

MaxY  =  getmaxy(); 
x  =  MaxX/80; 
y  =  MaxY/25; 

settext(); 

J****************************************************.****************J 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLIDJFELL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 


} 


/*  %*%***************%****%*********%*********%************************%/ 
static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist: 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  y )  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  Y)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 


1364 


videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

^* ************************’ Ic********************************************^ 

static  void  settext(void) 

( 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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j* ********************** V ********************************** ************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

void  Pause(i,j) 
int  i,  j; 

{ 

settextO; 

outtextxy(i  j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<■"); 
if(waitke)  0=~ESC)  confirm_graph_exitO; 

} 


/*  main  routine  that  calls  exer  routine  */ 

void  main() 

{ 

exerQ; 


y****  *  *  *  ^  **  *  *  *  *  *  *  *  *  *  *  **  %  %  *  **  *  *  *  %  *  *  **  *  *  *  **  *  %  *  *  *  *  **  *  *  *  *  *  *  *  **  ****  **  *  *  *  *  **  +y 

/*  Routine  that  asks  the  question,  then  depending  on  the  user's  answer  */ 

/*  makes  necessary  explanations  */ 

static  void  exer(void) 

( 

char  Ch; 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  12"); 

y*  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  *  +  +  +  +  + 

outtextxy(10*x,2*y, "Evaluate  the  following  reverse  Polish  notation  expression”); 
outtextxy(30*x,3*y,"2  3  +  4  6  -  -  5  *  4  +"); 

^* *******************************************************************/ 
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while  (in_the_exercise  ==  1 )  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  as  you  need 
outtextxy(15*x,15*y,"  a)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,18*y, "Enter  your  choice  here  — 

Ch  =  getch  0; 

if(Ch==ESC)  confirm_graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,l  8*y,"  Please  type  a,  b,  c  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  { 

setcolor(backcolor); 

bar(50*x,35*y/2,88*x,20*v); 

setcolor(forecolor); 

} 

} 

switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtexixy(52*x,18*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,19*y,”tion  with  ours.  So  press  any  "); 
outtextxy(52*x,20*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’b’:  outtextxy(47*x,18*y,"b”); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,19*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,20*y,  "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(50*x,35*y/2, 17?*x/2,22*y); 

bar(2*x,4*y,179'i:x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

rase  ’c’:  outtextxy(47*x,18*y,"c'); 
confirm_exit(); 
break; 

default  :  break; 


closegraphQ; 

) 


/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

static  void  compare_solutions(void) 


setcolur(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,4*y,  1 79*x/2,49*y/2); 
setcolor(forecolor); 

outtextxy(35*x,10*y,"The  answer  is  39”); 
Pause(30*x,24*y); 

setcolor(backcolo'),  /*  Clean  the  game  field  again  */ 

bar(2*x,4*y,179*x/2,49*>/2); 

setcolor(forecolor); 
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/*********************> ************************************************y 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

y*  a***************************************************. ■;****************/ 

static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(3*x/2,4*y,179*x/2,49*y/2); 

setcolor(forecolor); 

y********************************************************************y 

outtextxy(30*x,8*y,"  23+46--5*4  +"); 

Pause(30*x,24*y); 

y************************************************************Jtc*******y 

outtextxy(30*x,9*y,"=  5  4  6  -  -  3  *  4  +"); 

Pause(30*x,24*y); 

y*^*%*%**  +  %*****^************  +  ******^*3ic3<e^esfc5jc*5K)<c*s*c**3f:3f:stc>fcs}csJc****3f:^:*sj«:*sf:5f:>}c>}c^ 

outtextxy(30*x,10*y,"=  5  (-2)  -  5  *  4  +"); 

Pause(30*x,24*y); 

y********************************************************************y 

outtextxv(30*x,l  l*y,"=  7  5*4  +"); 

Pause(3r'*x,24*y); 

y*********%****************************************************:j<*****y 

outtextxy(30*x,12*y,"=  35  4  +"); 

Pause(30*x,24*y); 

y************************************************************^,.*****^ 

outtextxy(30*x,13*y,”=  39"); 

Pause(30*x,24*y); 

y*  I********************************..  **********************************y 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 
bar(2*x,4*y,  1 79*x/2,49*y/2); 
se  tcolor(  forecolor) ; 
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y* ********************************* ************************************y 

static  void  confirm_exit(void) 

{ 

char  ch; 

outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,19*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  =  y)  11  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,22*y,”  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,2 1  *y ,  1 79*x/2,49*  y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 

case  y :  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  V:  setcolor(backcolor); 

bar(46*x,35*y/2, 1 79*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2.22*y); 

setcolor(forecolor); 

break; 

default :  break; 

} 
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/*  PROGRAM  :  sort.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Mar.  12,  1990 
REVISED  :  Apr.  8,  1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  sorting  and  searching 
in  binary  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  EBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <process.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h” 


#if  defined(_TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M _I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskev(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined(_ZTC _ )  /*  Zoiiech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_najne  name 
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attribute 


#define  ff_attrib 
#endif 

#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confimi_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  normal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_a_kev  (int  wrow); 

static  void  pre_help  (void); 

static  void  quit_window  (void); 

static  void  restore_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow.int  necol); 

/*  tutorial  functions  */ 
static  void  sort_search  (void); 

static  void  definition_4_6_l  (void); 
static  void  ex_sort_l  (void); 

static  void  ex_sort_2  (void); 

static  void  ex_sort_3  (void); 

static  void  ex_sort_4  (void); 

static  void  construct  (void); 

static  void  sorting  (void); 

static  void  searching  (void); 

static  void  exercises  (void); 

static  void  exerl  (void); 
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static  void  exer2  (void); 

static  void  exer3  (void); 

static  void  exer4  (void); 

static  void  exer5  (void); 

static  void  PI  (void); 

static  void  P2  (void); 

static  void  P3  (void); 

static  void  P4  (void); 

static  void  P5  (void); 

static  void  P6  (void); 

static  void  P7  (void); 

static  void  P8  (void); 

static  void  P9  (void); 

static  void  P10  (void); 

static  void  PI  1  (void); 

static  void  P12  (void); 

static  void  P13  (void); 

static  void  P 14  (void); 

static  void  P15  (void); 


^* *********************************************************************/ 
/*  miscellaneous  global  variables  */ 

y****************************  ************  I***:)!********************))'*****/ 

static  int  *savescm,crow,ccol; 
static  WINDOW  w[10J; 
static  char  ssan[10J; 


I********************************************************************* 

/*  error  message  table  */ 

static  char  *error_text[]=  ( 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  ==  1,  windowing  error  */ 

"Syntax:  CXLDEMO  [-switches]\nW 
’"'t  -c  =  CGA  snow  eliminationNn” 

'V  -b  =  BIOS  screen  writingW 
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-m  =  force  monochrome  text  attributes", 
"Memory  allocation  error" 


}; 


/**********************************************************************/ 

/*  miscellaneous  defines  */ 

^* *********************************************** **********************/ 


#define  S  HORT_DEL A Y  18 
#define  H_WINTITLE  33 


/**********************************************************************/ 
/*  this  function  will  add  a  shadow  to  the  active  window  */ 

/+ ****************************************** ***************************^ 
static  void  add_shadow(void) 


wshadow(LGREYI_BLACK); 


/**********************************************************************/ 
/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 

/* ********%*******%*******%*********%**********%***********************/ 
static  void  confirm_quit(void) 

{ 

struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurQ; 

if(!wopen(9,26,13,55,0,WHITEI_BROWN,WHITEI_BROWN))error_exit(I); 

add_shadow(); 

wputs("Vi  Quit  demo,  are  you  sure?ND33A\156Y^f>"); 

clearkeys(); 

showcuif); 

if(wgetchf("YN",’Y’)==’Y’)  normal_exit(); 

wclose(); 

hidecurQ; 
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if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/**********************************************************************/ 
/*  this  function  is  called  by  the  pull-down  demo  for  a  prompt  */ 

/♦itt*******************************************************************^ 

static  void  disp_sure_msg(void) 

I 

wprints(0,2,WHITEl_BLUE,"Are  you  sure?”); 

I 

/*  this  function  handles  abnonnal  termination.  If  it  is  passed  an  */ 

/*  error  code  of  1,  then  it  is  a  windowing  system  error.  Otherwise  */ 

/*  the  error  message  is  looked  up  in  the  error  message  table.  */ 

/***%!(S!!<*j|<#!t<**********j|<l|C****:frl|<***:f***!|<*!|<*******!(<********!|c*ltC**:<«**S(C!(t!|<*l|<*!tt!(y 

static  void  error_exit(int  errnum) 

I 

if(ermum)  { 

printf("\n%s'\n".(errnam==l)?wernnsg():error_text[ermum]); 

exit(ermum); 

1 


+  +  +  +  *  +  +  *  +  *  +  +  ^  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 


/ 


**+****★*++*****+***++******************+**+**+*++***+***+*+******+++* 


7 


static  void  initialize(void) 

I 

/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinitt); 

readcur(&crow,&ccoi); 
if((savescm=ssave())==NULL)  error_exit(3); 


/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
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if(msinit())  { 
mssupport(MS_FULL); 
msgotoxy(  12,49); 

) 

/*  attach  [Alt-X]  to  the  confirm_quit()  function  */ 
setonkey(0x2d00,confirm_quit,0); 

/*  attach  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400,  Pageup,  0); 

/*  attach  [Ctrl  Pagedown]  to  the  Pagedown()  function  */ 
setonkey(0x7600,Pagedown,0); 

/*  initialize  help  system,  help  key  =  [FI]  */ 

whelpdef("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED, 

WHITELRED,REDLLGREY,pre_help); 

I 


/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

/*************************************************¥********************/ 

static  void  Pageup(void) 

( 

static  WINDOW  handle; 

handle  =  whandleQ; 
wactiv(handle  -  1 ); 

> 

^****l(t***%*******************l(<*j(<***l(<**  +  *****  +  *l(t**l(<*l(<*S(<*!(<!(cl(<**********5(<**y 

/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

static  void  Pagedown(void) 

( 

static  WINDOW  handle; 
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handle  =  whandle(); 
wactiv(handle  +  1); 

} 


static  void  p±e_help(void) 

{ 


add__shadow(); 

setonkey(0x2d00,confirm_quit,0); 

} 


/****++*********+*+************************************************+***/ 
/*  this  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 


static  void  normal_exit(void) 

I 

srestore(savescrn); 

gotoxy_(crow.ccol); 

if(_mouse)  mshidecurO; 

showcur(); 

exit(0); 

) 


y* *********************************************************************/ 
/*  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 

^♦★♦★♦s*****************************************************************/ 

static  void  press_a_key(int  wrow) 


register  int  attrl; 
register  int  aftr2; 


attrl  =(  YELLOW  )l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->wattr»4)«4); 
wcenters(wrow, attrl, "Press  a  key"); 
wprints(wrow,0,LGREYI_RED,"Pgup/Pgdn"); 
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hidecurO; 

if(waitkey()==ESC)  confirm_quit(); 
wcenters(wrow,attrl,"  "); 
wprints(wrow,0,attr2,"  "); 


/*  This  routine  causes  short  dealys  during  execution  */ 

y**********************************************************************/ 

static  void  short_delay(void) 

I 

delay  _(SHORT_DELAY); 


/***************  *****  *********  iff****  J************************************^ 

/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  die  [Qluit  menu  items.  */ 

y* *********************************************************************/ 

static  void  quit_window(void) 


static  WINDOW  handle=0; 


if(handle)  { 
wactiv(handle); 
wclose(); 
handle=0; 


else  ( 

handle=wopen(14,41,17,70,0,YELLOWI_RED,WHITEI_RED); 
wputs("  Quit  takes  you  back  to  the\i  demo  program’s  main  menu."); 

) 


1378 


/**********************************************************************/ 

/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

/**********************************************************************/ 


static  void  restore_cursor(void) 

I 

wtextattr(WHITEI_MAGENTA); 

showcur(); 


/fr*********************************************************************^ 

/*  enlarges  or  shrinks  the  windows  */ 

/I**********************************************************************/ 

static  void  size_window(int  nerow,int  necol) 

{ 


wsize(nerow.necol); 

short_delay(); 


/********************+*************************************************/ 

/*  moves  the  active  window  to  a  given  screen  coordinates  */ 

^a*********************************************************************/ 

static  void  move_window(int  nsrow,int  nscol) 

( 

if(wmove(nsrow, nscol))  error_exit(l); 
short_delay(); 


^S********************************  *************  ************************^ 

/*  this  routine  calls  sort_search()  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

^**********************************************************************^ 

void  P 1  ( ) 

I 

wcloseall(); 
sort  search! ); 


1379 


y**********************************************************************^ 

/*  this  routine  calls  definition  4-6-1  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 
void  P2() 


wcloseall(); 

def  in  it  ion_4_6_  1  ( ); 


^**********************************************************************^ 
/*  this  routine  calls  ex_sort_l  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 
void  P3() 

{ 

wcloseall(); 

ex_sort_l(): 

} 

/*  this  routine  calls  construct  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 
void  P4() 


wclosealH); 

consttuct(); 


/*  this  routine  calls  ex_sort_2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y*  ******************************************************************** *^ 

void  P50 

I 

wclosealH); 

ex_soit_2(); 
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y*  ***********************************  **********************************y 

/*  this  routine  calls  sorting  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y**ii<*******************************************************************y 

void  P6() 

( 

wcloseall(); 

sorting!); 

} 

y**********************************************************************y 

/*  this  routine  calls  ex_sort_3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y********************************************************************-''''/ 

void  P7() 

( 

wcloseall(); 

ex_soil_3(); 

I 

y******************j|<i|<*******************  +  ******************************y 

/*  this  routine  that  calls  searching  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y***********************:|<****i|cj|!*****jt<**********************************y 

void  P8() 

( 

wclosealH); 

searching!); 

I 

y'* +  *********  +  ***************%***********************  +  ***  +  %*  +  *  +  +  *  +  **  +  ***/ 

/*  this  routine  that  calls  ex_sort_4  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y*  ******************************************************************** *y 

void  P9( ) 


wcloseall!); 
ex_sort_4( ); 
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r  this  routine  calls  exercises  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/**********************************************************************/ 
void  P10() 


wclosealH); 

exercises!,); 

) 

/******************************************************** K*************^ 

/*  this  routine  calls  exerl  routine  whenever  Pageup  or  */ 

/*  Pagedow-n  keys  are  pressed.  */ 

jM  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM'MMMMMMM'MMM+'tMMMMM*  Y MMMMMMMMMMMMMMMMMM  j 

void  PI  1() 

I 

wcioseallf); 

exerl(); 


(/**  ****************************************************  ************** + 1 
/*  this  routine  calls  exer2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

yf*  ***************  ******************************************************/ 

void  P12() 

( 

wcloseall(); 

exer2(); 


/*  ********************************************************************  * 
/*  this  routine  calls  exer3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

/****%*%************%***%%**4********%*********>l<*%**%*****%******%%*%** 

void  P13() 


wcloseall(); 
exer3( ); 

I 
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jlf  **************************************  **********  *********************/ 

/*  this  routine  calls  exer4  routine  whenever  Pageup  or  */ 

/*  Page  down  keys  a.e  pressed.  */ 

'  oid  P14() 

l 

wcloseall(); 

exer4(); 

) 

/**************************>M'***********************>r<************>l<****>iy 

/*  this  routine  calls  exer5  routine  whenever  Pageup  or  */ 

/*  PageDown  keys  are  pressed  */ 

void  P15() 

{ 

wcloseall(); 

exer5(); 


/*  main  routine,  calls  minimal  spanning  tree  tutorial  */ 

y* ********** k*********^************************************************/ 

void  main() 

( 

initialize!); 
sort  searchi ); 
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/********************************** 


************************************^ 


/*  This  routine  calls  definition,  example  and  algorithm  routines  about  */ 

/*  sorting  and  searching  in  binary  trees.  */ 

y*  ********************************************************************* 


static  void  sort_search(void) 


register  int  *scm; 

if((scm=ssave())==NULL)  error_exit(3); 
cclrscni(LGR?YI_BLUE); 

/*************** *****************************************************^ 
/*  attach  [Pagedown]  to  the  definition_4_6_l()  function  */ 
setonkey  (Ox  5 1 00,  P2,0 ); 

/********************************************************************^ 
if((w[  1  )=wopen(5 ,20, 1 5 ,60,3 ,WHITEI_BLACK,REDI_CY AN ))==0 )  error_exit(l); 
wtitIe("fSorting  and  Searching]”, TCENTER,_LGREYIBROWN); 
add_sliadovv( ); 
whelpcat(H_WINTITLE); 

wputsw("  Maintaining  a  large  data  set  is  a  common  problem  for  data" 

"  processors.  This  consists  not  only  of  updating  the  data  set" 

"  by  adding  and  deleting,  but  also  of  searching  the  data  for" 

"  a  particular  for  a  particular  piece  of  of  information."); 
press_a_key(8); 
wslide(0,0); 
short_delay(); 

^*  *******************************************************************/ 
if((w[2]=wopen(5,20,18,60,3,WHITEI_BLACK,BLACKLCYAN))==0) 
error_exit(l ); 

wtitleC’fBinaty  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTlTLE); 

wputsw(”  Suppose,  for  instance,  that  a  company  X  maintains  a  list" 

"  of  its  customers.  When  an  order  is  received,  the  company  must" 

"  search  this  list  to  determine  if  the  order  is  from  an  old  or" 

"  a  new  customer.  If  the  order  is  from  a  new  customer,  then" 

"  this  customer's  name  must  be  added  to  the  list.  Moreover," 
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"  when  a  customer  goes  out  of  business,  that  customer’s  name" 

"  must  be  removed  from  the  list."); 
press_a_key(  i  i ); 
wslide(l  1.0); 
short_delay(); 

if((w[3]=wopen(5,20,17,60,3,WHITELBLACK,REDI_CYAN))=0)  error_exit(l); 
wtitle("[Sorting  and  Searching] ”,TCENTER,_LGREYIBROWN); 
add_shadow(); 
whelpcat(H_WINTTTLE); 

wputsw("  One  way,  maybe  the  easiest  one,  to  maintain  such  a  list  is" 

"  to  keep  the  data,  let’s  say  in  an  array  in  the  order  in  which" 

"  they  are  receiwed.  As  we  said  above,  this  method  enables  items" 

"  to  be  added  to  the  list  easily;  for  instance,  if  a  new  name" 

"  to  be  added,  this  name  can  be  added  to  the  end  of  the  existing" 

"  array."); 
press_a_key(10); 
wslide(0,39); 
short_delay(); 

j *  jft**********^*******************^***********************************/ 

if((w[4]=wopen(5,20,17,60,3,WHITEI_BLACK,BLACKI_CYAN))==0) 
error_exit(l ); 

wtitle("lSorting  and  Searching]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTITLE); 

wputsw("  However,  this  method  makes  it  very  time  consuming" 

”  to  determine  if  a  particular  name  is  in  the  list,  in  this" 

"  case,  to  be  able  to  find  this  name  ,  the  whole  array" 

"  is  to  be  gone  through.  If  the  size  of  the  array  is  small" 

"  there  is  no  problem,  but,  if  we  are  talking  about  a  big" 

"  company,  then  we  are  in  trouble."); 
press_a_key(  10); 
wslide(12,39); 
shortdelayO; 

Z********************************************************************/ 
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if((w[5]=wopen(5 ,15,16,65,3 ,  WHITELB  LACK ,  WHITEI_B  LUE )  )==0 ) 
error_exit(  1 ); 

wtitle("[Sorting  and  Searching]",TCENTER,_LGREYIBROWN); 

add_sliadov,(); 

whelpcat(H_WINTlTLE); 

wputsw("  Another  approach  is  to  keep  the  list  in  alphabetical  order." 

”  So  it  would  be  easier  to  search  the  list  for  a  particular" 

"  name.  However,  adding  or  deleting  from  the  list  is  more" 

"  difficult  because  of  the  need  to  reposition  the  entries  when" 

"  an  item  is  added  or  deleted.  Like  previous  one,  this  process" 

"  is  prohibitive  if  the  list  is  very  long.”); 
press_a_key(9); 
wslide(0.20); 
short_delay(); 

if((w[6]=wopen(5 , 1 5 , 1 7,65 ,3  .WHITELBLACK,  WHITELBLUE))==0) 
error_exit(  1 ); 

wtitle("[Sorting  and  Searching]", TCENTER,_LGREYIBROWN); 

add_shadow( ); 

wheIpcat(H_WlNTITLE); 

wputsw("  The  other  approach  is  to  store  the  data  at  the  vertices  of 
"  a  binary  tree."); 

wputsCVi  How  is  this  done  ,7V); 

wputsw("  Actually,  we  came  to  the  topic  of  this  section  which  we" 

"  intentionally  left  to  the  last."); 
wputs(”\n\n  Sorting  and  searching  in  binary  trees.Vn"); 
wputsw("  To  do  this  we’ve  got  to  talk  about  a  new  concept," 

’binary  search  trees’."); 
press_a_key(10); 
wslide(12,20); 

short_delay(); 

wcloseallO; 

de  fin  i  t  ion_4_6_  1  ( ) ; 

srestore(scm); 
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/ 


* *%********%***********%%**%****************%%**%*************%******* 


/ 


/*  This  routine  gives  the  definition  of  a  binary  search  tree  */ 

y****************************************************************#*****^ 

static  void  definition_4_6_l(void) 


y***+*  ***************************************************************y 


/*  attach  [Pageup]  to  the  sort_search()  function  */ 
setonkey(0x4900,Pl  ,0); 


/**************************** 


****************************************y 


/*  attach  [Pagedown]  to  the  ex_sort_l()  function  */ 


setonkey(0x5 1 00, P3 ,0); 


r 


**************************************** 


***************************/ 


if((w[  1  ]=wopen(5 , 1 5 , 1 9,65 ,3  ,WHITEI_BLACK,  WHITELGREEN  ))=0) 
error_exit(l ); 

wtitle("|Binary  Search  Trees  -  Definition  4_6_l]",TCENTER,JLGREYIBROWN); 
add_shadow( ); 
whelpcat(  H_WINTITLE ); 

wputsw("  A  binary  search  tree  for  the  list  is  a  binary  tree  in  which" 

"  each  vertex  is  labeled  by  an  element  of  the  list  such  that:"); 
wputs('Vi  (1 )  No  two  vertices  have  the  same  labeNi"); 
wputsw("  (2)  If  vertex  U  belongs  to  the  left  subtree  of  vertex  V," 

"  then  U  <=  V."); 
wputs("\n"): 

wputsw("  (3 )  If  vertex  W  belongs  to  the  right  subtree  of  vertex  V," 

"  then  V  <=  W."); 
wputs('Vi"); 

wputsw("  Thus  ,  for  each  vertex  V,  all  descendants  of  V  in  the  left" 

"  subtree  of  V  precede  V,  and  all  descendants  of  V  in  dre  right" 

"  subtree  of  V  follow  V."); 
press_a_key(12); 
short_delay( ): 
wslide(O.O); 
short_deiay(); 
ex_sort_l(); 


1387 


/*  This  routine  gives  an  example  for  typical  binary  search  trees  */ 

y**********************************************************************/ 
static  void  ex_sort_l  (void) 


y******************************************************************** 


/*  attach  [Pageup]  to  the  definition_4_6_l()  function  */ 
setonkey(0x4900,P2,0); 

/********************************************************************/ 

/*  attacli  [Pagedown]  to  the  construct()  function  */ 

setonkey(0x5100,P4,0); 


if((w[2]=wopen(5,15,10,65,3,WHITEI_BLACK,WHITELLGREY))=0) 

error_exit(l); 

wtitle("[Binary  Search  Trees  -  Example_4_l]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTITLE); 

wputs("Sn"); 

wputsw(”  Do  you  want  to  see  an  example  ?"); 

press_a_key(3 ); 

short_delay(); 

wcloseall(); 

spawnl(P_WAIT,"examp461.exe",NULL); 

cclrscm(LG  REY  LB  LUE) ; 

construct!); 
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y*********************************************************************:^ 

/*  This  routine  gives  the  algorithm  to  construct  a  binary  search  tree  */ 

y**********************************************************************/ 

static  void  construct(void) 


l 


y********************************************************************y 

/*  attach  [Pageup]  to  the  ex_sort_l()  function  */ 
setonkey(0x4900,P3,0); 

y+**  +  *********i)t***  +  *****  +  ***  +  +  ******  +  *  +  +  »  +  +  +  **  +  4i*****'ti***>t<  +  +  +  >l<  +  ****  +  *y 


/*  attach  [Pagedown]  to  the  ex_sort_2()  function  */ 
setonkey(0x5 100,P5,0); 


y********************************************************************^ 


if (( w  [  1  ]=wopen(5 , 1 5 , 1 3 ,65 ,3  ,WHITEI_BLACK,WHITEI_RED))==0) 
error_exit(  1 ); 

wtitle("[Biiiary  Search  Tree  Construction]", TCENTER,_LGREYIBROWN); 
add_shadow( ); 
whelpcat(  H_  WINTTTLE) ; 

wputsw("  There  is  a  systematic  way  to  construct  a  binary  search  tree" 

"  for  a  list.  The  basic  idea  is  to  put  smaller  elements  as  left" 

"  children  and  larger  <-? aments  as  right  children."); 


wputs("Vi"); 

wputsw("  Following  is  the  algorithm  to  construct  a  binary  search  tree" 
"  from  a  given  list."); 
press_a_key(6); 
wclose(); 
short_delay(); 


if((w[2]=wopen(0,10,24,65,3,WHTTEI_BLACK,BLACKI_CYAN))==0) 
error_exit(  1 ); 

wtitle("[Binary  Search  Tree  Constmction  Algorithm]”, 
TCENTER,_LGREY!BROWN); 


add_sliadow( ); 
whelpcat(H_W!NTlTLE); 

wputsw("  This  algoritlun  constructs  a  binary  search  tree  with" 

"  vertices  labeled  Al,  A2 . An,  where  Al,  A2,...,An  are" 

"  distinct.  In  the  algoritlun  we  refer  to  a  vertex  by  its  label."); 
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wputs("\n"); 

wputsw("  Step  1  (start).  Construct  a  root  and  label  it  Al.  If  n  =  1," 

"  we  are  done;  otherwise,  let  V  =  Al  and  k  =  2."); 
wputs("\n”); 

wputsw("  Step  2  (if  smaller,  go  left).  If  V  <=  Al,  go  to  Step  3." 

"  Otherwise,  we  have  Ak  <=  V."); 
wputs('Vi"); 

wputsw("  (a)  If  V  has  no  left  child,  construct  a  left  child  L  for" 

"  V  and  label  L  with  Ak.  If  k  =  n,  we  are  done;  otherwise," 
"  increase  k  by  1,  set  V  =  Al,  and  go  to  Step  2."); 
wputs("\n"); 

wputsw("  (b)  Otherwise,  if  V  has  a  left  child  L,  set  V  =  L,  and" 

"  go  to  Step  2."); 
wputs("\n"); 

wputs("  Step  3  (if  larger,  go  right).  We  have  V  <=  Ak  .\n"); 
wputsw("  (a)  If  V  has  no  right  child,  construct  a  right  child  R  for" 
"  V  and  label  R  with  Ak.  If  k  =  n,  we  are  done;  otherwise," 
"  increase  k  by  1,  set  V  =  Al,  and  go  to  Step  2."); 
wputs("\n"); 

wputsw("  (b)  Otherwise,  if  V  has  a  right  child  R,  set  V  =  R,  and" 

"  go  to  Step  2."); 
press_a_key(22); 
short_delay(); 
ex_sort_2( ); 
short_delay(); 

) 
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/+***  +  *************  +  ************  +  **>l<*****  +  *****  +  ****>l<**********  +  **  +  ****/ 

/*  This  routine  gives  an  example  of  a  binary  search  tree  construction  */ 

static  void  ex_sort_2  (void) 


/*********%*********%************************************************/ 


/*  attach  [Pageup]  to  the  construct()  function  */ 
setonkey(0x4900,P4,0); 


^*  *******************************************************************/ 


/*  attach  [Pagedown]  to  the  sortingO  function  */ 
setonkey(0x5 1 00,P6,0); 


/*  *  ****  **********  4c  ******  *  *  ****  *  *  ***  *  * + ***  **  *  **  *****  *  *  ****  ****  *  ****  *  *  +i 


if((w[3]=wopen(5 , 1 5 , 1 0,65,3  ,WHITEI_BLACK,WHITEI_LGREY))=0) 
error_exit(l); 

wtitle(" [Binary  Search  Trees  -  Example_4_2]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H__WINTITLE); 

wpufs('Vi"); 

wputsw("  We  need  to  show  an  example."); 

press_a_key(3); 

short_delay(); 

wclosealH); 

spawnl(P_W  ATT, "examp462.exe", NULL); 

cclrscm(LGRE  Y  l_BLU  E); 

sorting!); 
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/*  This  routine  teaches  how  a  given  list  is  sorted  by  using  binary  search  trees.  */ 
/**********************************************************************/ 
static  void  sorting(void) 


/ft*******************************************************************/ 

/*  attach  [Pageup]  to  the  ex_sort_2()  function  */ 
setonkey(0x4900,P5,0 ); 

/**+++*************************+******+***+*********+*+***+++**+***++/ 


/*  attach  [Pagedown]  to  the  ex_sort_3()  function  */ 


setonkey(0x5 1 00,P7,0); 


/********************************************************************/ 


if((w[  1  ]=wopen(5 , 1 5 , 1 7,54,3  ,WHITEI_BLACK,WHITELRED))==0) 
error_exit(l); 

wtitle("[Sorting  with  Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 
add_shadow( ); 
whelpcat(H_WIN  TITLE); 

wputsw("  While  we  were  introducing  this  section  we  talked  about" 

"  sorting.  As  you  all  know,  there  are  so  many  sorting" 

"  techniques.  Since  our  particular  concern  is  on  binary" 

"  search  trees  for  now,  we  will  show  you  how  binary  trees  can" 

"  be  used  for  having  sorted  list  of  elements  and  won’t  cover” 

"  any  other  sorting  technique."); 
press_a_key(10); 
wslide(0,0); 
short_delay(); 

/★★♦I***************************************************************** 

if((w[2]=wopen(0,15,24,54,3,WHITEI_BLACK,REDI_LGREY))==0) 
error_exit(  1 ); 

wtitle("[Sorting  with  Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTTTLE); 

wputsw("  It  wouldn’t  be  a  good  idea  to  use  binary  search  trees" 

"  just  for  sorting  purposes,  since  there  are  better  sorting" 

"  techniques. For  instance,  if  large  databases  are  in  question," 

"  it  might  be  costly  to  use  binary  trees.  Because,  to  build  the" 
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"  tree  then  to  make  a  traversal  on  each  one  of  the  vertexes  (since" 

"  we  are  talking  about  having  a  sorted  print  out  of  the  list,  we" 

"  have  to  look  at  each  distinct  element, an  print  it  somehow.)" 

"  will  require  us  to  visit  the  same  vertex  at  least  twice." 

"  But  on  the  other  hand,  if  have  already  been  maintaining  the" 

"  records  in  a  binary  search  tree  and  we  are  asked  to  give  a" 

"  sorted  list  of,  let’s  say  employees,  by  their  last  names" 

"  this  technique  which  we  are  about  to  talk  about,  will  no" 

"  doubt  be  helpful,  moreover  will  be  necessary."); 
press_a_key(22); 
wslide(0,39); 
short_delay(); 

/ft******************************************************************* 

if((  w[3  J=wopen(5, 1 5 , 1 4,54,3  ,WH1TEI_BLACK,REDI_GREEN))==0) 
error_exit(l); 

wtitle("|Sorting  with  Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTTTLE); 

wputsw("  This  so-called  sorting  technique  with  binary  search  trees" 

"  is  no  more  than  making  an  inorder  traversal  in  a  binary  search" 

"  tree.  As  you  all  remember,  in  this  traversal  we  were  visiting" 

"  the  vertices  in  the  left_child-parent-right_child  order."); 
press_a_key(7); 
wslide(13,0); 
short_delay(); 
ex_sort_3(); 

) 
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/****  +  ***  +  *****  +  *****>t<***  +  *********  +  *  +  +  +  **  +  ***>i<  +  +  *  +  sf  +  ****  +  **!i<  +  *  +  ’f  +  ****>4y 

/*  This  routine  gives  an  inorder  tr  aversal  of  a  binary  search  tree  and  */ 

/*  consequently  prints  the  sorted  list  of  the  elements  in  the  tree.  */ 

y****%*****************************************************************y 

static  void  ex_sort_3  (void) 

{ 

y*  *  *  * + *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * + *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *y 

I*  attach  [Pageup]  to  the  sortingO  function  */ 
setonkey(0x4900,P6,0); 


/ 


***+*+*+**+******+******++*********++***************+*******+*++*** 


*/ 


/*  attach  [Pagedown]  to  the  searchingO  function  */ 
setonkey(0x5 10(),P8,0); 

y********************************************************************/ 

if((w[4]=wopen(5 ,15, 1 0,65 ,3  ,WHITELBLACK,REDLBLACK))==0) 
error_exit(  1 ); 

wtitle("|Sorting  with  Binary  Search  Trees3",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  We  feel  like  its  a  good  time  for  an  example.  Do  You  ?"); 

press_a_key(3); 

short_delay(); 

wcloseallO; 

spawnl(P_W  AIT, "examp463.exe", NULL); 

cclrscrn(LGREYI_BLUE); 

searchingO; 
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^v^*******************************************************************^ 

/*  This  routine  teaches  how  a  particular  element  is  searched  in  a  binary  */ 

/*  search  tree.  */ 

/♦i*********************************************************************/ 

static  void  searching(void) 


******** ****** ******* ********** *******************  ■ft********  ******.fy 

/*  attach  [Pageup]  to  the  ex_sort_3()  function  */ 
setonkey(0x4900,P7 ,0); 

y*****************************************************************,|(]'l*y 

/*  attach  [Pagedown]  to  die  ex_sort_4()  function  */ 
setonkey  (0x5 1 00,P9,0); 

y*  **************************************************************,,,**,,,*/ 

if((w[ll=wopen(5,15,12,65,3,WHITELBLACK,WHITEI_CYAN))==0) 

error_exit(l); 


wtitle("[Sorting  with  Binary  Search  Trees]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  We  now  came  to  the  last  topic  of  this  section,  ’searching’" 

"  The  search  algorithm  is  quite  simple.  That’s  why  we  give" 

"  a  verbal  description  and  leave  it  to  you  to  express  search" 

"  as  a  fonnal  recursive  algoritlun."); 
press_a_key(5); 
wslide(0,15); 


y*************************************************************,,,,,,,,,*,,,,,,,^ 

if((w[2]=wopen(5.15,15,65,3,WHITEI_BLACK,BLACKI_GREEN))==0) 

error_exit(l ); 

wtitle("[Sorting  with  Bmary  Search  Trees]", TCENTER,_LGREiflBROWN); 

a<ld_shadow( ); 

whelpcat(H_WINTITLE); 

wputs("  Tlie  algoritlim  works  like  this  :V); 

wputsw("  Stall  with  the  root  of  the  tree,  if  the  search  key  equals" 

"  the  vertex  key,  the  search  halts."); 
wputs(’\i"); 

wputsw("  If  the  search  key  is  less  than  the  vertex  key,  the  left  subtree" 

"  is  searched,  if  it  is  not  empty."); 
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wputsw("  Otherwise,  the  right  subtree  is  searched,  if  it  is  not  empty."); 

press_a_key(8); 

wslide(8.15); 

short_delayO; 

ex_sort_4(); 

) 


/**************  ******************************************************** 
/*  This  routine  gives  an  example  of  search  implementation  on  a  binary  */ 

/*  search  tree.  */ 

y%  ft************************************** ****************************** 

static  void  ex_sort_4  (void) 


^  ******************************************************************** 
/*  attach  [Pageupl  to  the  searching()  function  */ 

setonkey  (0x4900, P8,0); 

/******************************************************************** 

/*  attach  [Pagedown]  to  the  exercises()  function  */ 

setonkey(0x5100,P10,0); 

^********^*****************************************s|(3f(^****]((******]f<](M|e)(( 

if((  wl  3  J=wopen^  5 , 1 0, 1 0,70,3  ,WHITEI_BLACK,KEDI_BLACK))==0) 
error  exit(l); 

•  title("j  Sorting  with  Binary  Search  Trees]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

wputs(”V\  You  see,  it  is  very  easy.  Now  how  about  an  example  ?"); 

press_a_key(3); 

wslide(  19,10); 

shoil_delay(); 

y*  ************************************>  ***************************** 

wcloseall(); 

spa  wnl(  P_W  ATT,"exa-rip464  .exe  ", NULL ) ; 

cclrscm(LGREYI_BLUE); 

exercises(); 
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4 


y****************************************************************:-’''****/ 

/*  Tliis  routine  makes  a  small  quiz  about  the  binary  search  trees.  */ 

void  exercises(void) 

( 

register  int  *screen; 

y********************************************************************y 

/*  attach  [PageUp]  to  the  ex_sort_4()  funrion  */ 

seionkey(0x4900,P9,0); 

/*  attach  [Page  .  >,vn]  to  the  exerl()  function  */ 
setonkey(0x5100.Pl  1,0); 

if((w(  l]=wopen(5,15,10,65.3,LCYAIs,!_GREEN,WHITELRED))==0) 
error_exit(l); 

wtitle("[Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs(’Vi"k 

wputsw(  "  We  have  completed  our  presentation  of  this  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  "); 
press_a_key(3 ); 
shoil_delay(); 
wclose(); 

if((screen=ssave())==NULL>  error_exit(3);  ( 
exerl(); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinitO)  I 
mssupport(MS_FULL); 
msgotoxy(  12,49); 


srestore(  screen); 
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/♦♦♦♦♦♦fr***************************************************************/ 

/*  Dummy  function  to  call  the  actual  exercise  4.6.1  */ 

^fr*********************************************************************/ 

static  void  exerl(void) 

I 

y********************************************************************^ 

/*  attach  [PageUp]  to  the  ex_sort_4()  function  */ 

se  tonkey  (0x4900 .  P9 ,0 ) ; 

y**  ******  ********  ft*************************  ***************  ***********/ 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5 100.P  1 2,0); 

^*******************************************************************=ty 

if  (( w  [  1  ]=wopen(  5 , 1 5 , 1 0,65 ,3  ,LCY  ANI_GREEN  ,WHITEI_RED))==0) 
enor_exit(l); 

wtitle("[Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTTTLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  first  question.  "); 

press_a_key(3); 

wclose( ); 

spavvnl(P_WAIT,"q461  .exe”,NULL); 

cclrscm(LGREYI_BLUE); 

exer2(); 
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/★♦fr******************************************************************^' 

/*  Duininy  function  to  call  the  actual  exercise  4.6.2  */ 

/**  *************************************************:t<**!|<***********||<*jfr!ty 

static  void  exer2(void) 

I 

y*************************^**!*!***************************************^ 

/*  attach  [PageUp]  to  the  exerl()  function  */ 

setonkey(0x4900,Pl  1,0); 

/********************************************************************y 

/*  attach  [Pagedown]  to  the  exer3()  function  */ 
setonkey  (0x5 1 00.P  1 3 ,0) ; 

J+*******  +  ******jt$<j'******jt*******************************  +  *********t*+f 

if((w[l  J=wopen(5 , 1 5, 1 0,65 ,3  ,LC  Y  ANI_GREEN ,  WH1TEI_RED))==0) 
error_exit(l); 

wtitlef  [Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WlNTITLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  second  question.  "); 

press_a_key(3 ); 

wcloseO; 

spawnl(P_W  AIT, "q462.exe", NULL); 

cdrscm(LGREYLBLUE); 

exer3(); 
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y'**********************************************************************/ 

/*  Dummy  function  to  call  the  actual  exercise  4.6.3  */ 

/*> t********************************************************************/ 

static  void  exer3(void) 


/*****************************************%********#**%**************/ 


/*  attach  [Pageup]  to  the  exer2()  function  */ 

setonkey  (0x4900, P 1 2,0); 


/+*  +  > it********  ************  ************************111*******************/ 


/*  attach  [Pagedown]  to  the  exer4()  function  */ 
setonkey(0x5100,P14,0); 

/***** c*******^*******************************************************/ 

if((  w[  1  ]=wopen(5 ,15,1 0,65,3  ,LC  YANI_GREEN,  WHITEI_RED))===0 ) 
error_exit(l); 

wtitle(" [Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs(”\n"); 

wputsw("  Here  is  the  third  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAIT,"q463  .exe"  ,NULL); 
cclrscrn(  LORE  Y  l_B  LUE); 
exer4(); 
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/**********************************************************************/ 
/*  Dummy  function  to  call  the  actual  exercise  4.6.4  */ 

static  void  exer4(void) 


/♦♦it.*****************************************************************/ 

/*  attach  [Pageup]  to  the  exer3()  function  */ 

setonkey(0x4900,P  1 3 ,0 ) ; 

j *  <*****************************************************************!iy 

/*  attach  [Pagedown]  to  the  exer5()  function  */ 
setonkey(0x5 1 00, P 1 5 ,0); 

if((w[  1  ]=wopen(5 ,15, 1 0,65,3  ,LCYANI_GREEN  ,WHITELRED))==0) 
error_exit(l); 

wtitle("[Binary  Seaich  Trees]", TCENTER,_LGREYIBROWN); 
whelpcat(  H_WiNTITLE ); 
add_shadow( ); 
wputs("V); 

wputsw("  Here  is  the  forth  question.  "); 

press_a_key(3 ); 

wcloseQ; 

spawnl(P_W  AIT, "q464.exe", NULL); 

cclrscm(LGREYI_BLUE); 

exer5(); 
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/*  Dummy  function  to  call  the  actual  exercise  4.6.5  */ 

static  void  exer5(  /oid) 

{ 

/********************************************************************/ 


/*  attach  [Pageup]  to  the  exer4()  function  */ 

setonkey(0x4900,P14,0); 


/*%***********%***%***************%*****************%****************/ 


if((w[  1  ]=wopen(5, 1 5, 10,65,3,LCYANI_GREEN,WHITELRED»==0) 
error_exit(l); 

wtitle("[Binary  Search  Trees]", TCENTER,_LGREYIBROWN); 

wheIpcat(H_WINTlTLE); 

add_shadow(); 

wputs("\n"); 

wputsw("  Here  is  the  fifth  question.  "); 

press_a_key(3); 

wclose(); 

spawnl(P_WAlT,"q465.exe",NULL); 

cclrscm(LGREYI_BLUE); 

nomial_exit(); 
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/*  PROGRAM  :  examp461.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  18,  1990 
REVISED  :  Apr.  18,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  a  binary  seach  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
^include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined ( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/**********************************************************************/ 
/*  graphic  initialization  variables  */ 

/**********************************************************************y 


int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor, 

int  forecolor; 

int  x,  y,  MaxX,  MaxY; 


jrfU  $  £  *  $  4c  *  sfe  *  £  *  a|c  *  %  $  a|c  *  *  *  *  4c  *  *  $  *  afc  *  ajt  *  a|e  s|e  *  $  *  *  £  *  *  >jc  *  *  *  afe  4c  )fc  %  *  *  *  $  %  *  afc  *  *  *  *  *  *  *  *  *  *  *  ajc  Jjc  *  ifc  *  *  j 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

j  *  *:|c£££$*%}tc££$$$££3fc9k’l'************$$>k***$%**$*$%%***&*******:ilc3lc’f':**>i‘>ii:***:ilc*y 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


} 
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y* *********************************************************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y* *********************************************************************/ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

^i^******************************************************************^ 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

/****%$***************%**********************************************/ 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 


settext(); 

^^^^^^^^^^rk^*************************************************-****^ '•*  j 

if  ((g  ^p!...t<<uc  -  CGA.H!) !!  (graph,  i:^5-  -=  MCGAMED)  II  (graphmode  -= 
ATT400MED)  II  (graphmode  ==  MCGAH1)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 

backcolor  =  BLUE; 


forecolor  =  WHITE; 

) 
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/**********************************************************+***********/ 
/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

1 


y* ******************************************************************** 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/********************************************************************* 
void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE...<«”); 
if(waitkey()==ESC)  { 
closegraph(); 
videoinit(); 
exit(O); 


) 


} 


/*  main  routine,  calls  exer  routine  */ 

void  main() 

{ 

exer(); 

} 
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/**********************.< c***********************************************/ 

/*  This  routine  illustrates  a  binary  search  tree  */ 


/**********************************************************************y 


void  exer() 

{ 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-6-1"); 

y*  *******************************************************************/ 


pieslice(45*x,4*y,0,359,2);  /*  Mary  */ 
pieslice(30*x,7*y,0, 359,2);  /*  Hande  */ 
pieslice(60*x,7*y,0,359,2);  /*  Tom  */ 

moveto(30*x,7*y);  lineto(45*x,4*y);  lineto(60*x,7*y); 
outtextxy(42*x,7*y/2,"Mary"); 
outtextxy(23*x.7*y, "Hande"); 
outtextxy(61*x,7*y,"Tom"); 
pieslice(20*x,10*y,0,359,2);  /*  Atilla  */ 
pieslice(40*x,10*y, 0,359,2);  /*  Kim  */ 
pieslice(50*x,10*y,0,359,2);  /*  Pat  */ 
pieslice(70*x,10*y,0,359,2);  /*  Yavuz  */ 
outtextxy  ( 1 6*x, 2 1  *y/2,"  Atilla"); 
outtextxy(35*x,10*y,"Kim"); 
outtextxy(52*x,10*y,"Pat"); 
outtextxy(67*x,21*y/2, "Yavuz"); 
moveto(20*x,10*y);  lineto(30*x,7*y);  lineto(40*x,I0*y); 
moveto(50*x,10*y);  lineto(60*x,7*y);  lineto(70*x,10*y); 
pieslice(35*x,13*y,0,359,2);  /*  Hasene  */ 
pieslice(45*x,l3*y,0,359,2);  /*  Mantak  */ 
pieslice(55*x,l3*y,0,359,2);  /*  Sam  */ 
outtextxy(3 1  *x,27*y/2,"Hasene"); 
outtextxy(42*x,27*y/2, "Mantak"); 
outtextxy(54*x,27*y/2,"Sam"); 

moveto(35*x,13*y);  lineto(40*x,10*y);  lineto(45*x,13*y); 
moveto(50*x,10*y);  lineto(55*x,  1 3*y); 
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outtextxy(2*x,15*y,"In  this  example  of  binary  search  tree  every  intermediate  ver¬ 
tex  is  alphabet-"); 

outtextxy(2*x,16*y,"icalIy  greater  than  its  left  child  and  less  than  its  right  child"); 

outtextxy(2*x,17*y, "Adding  a  new  name  to  tree  is  simple  because  we  need  only  in¬ 
clude  one  vertex"); 

outtextxy(2*x,18*y,"and  edge  in  the  tree,  and  also  searching  this  tree  for  a  particu¬ 
lar  name"); 

outtextxy(2*x,19*y, "requires  no  more  than  four  comparisons  if  we  search  the  tree 
properly"); 


Pause(30*x,24*y); 

setcolor(backcolor); 

bar(0,0,MaxX,MaxY); 

setcolor(  forecolor); 

rectangle(x,y/2,MaxX-x,MaxY-y/2); 

y********************************************************************y 

outtextxy(2*x,2*y,"In  this  example  you  see  two  possible  binary  search  trees  for  "); 
outtextxy(2*x,3*y,"  1,  2,  3,  4,  5,  6,  8,  9,  10"); 

Pause(30*x,24*y); 

pieslice(25*x,6*y,0,359,2);  /*  6  */ 

pieslice(15*x,9*y,0,359,2);  /*  4  */ 

pieslice(35*x,9*y,0, 359,2);  /*  9  */ 

moveto(15*x,9*y);  lineto(25*x,6*y);  lineto(35*x,9*y); 

outtextxy(25*x,l  l*y/2,"6”); 

outtextxy(  1 3*x,9*y,"4"); 

outtextxy(36*x,9*y,"9"); 

pieslice(5*x,12*y, 0,359,2);  /*  1  */ 

pieslice(20*x,12*y,0, 359,2);  /*  5  */ 

pieslice(30*x,12*y, 0,359,2);  /*  8  */ 

pieslice(45*x,12*y,0,359,2);  /*  10*/ 

outtextxy(3*x,12*y,"l"); 

outtextxy(20*x,25*y/2,"5"); 

outtextxy(30*x,25*y/2,”8"); 

outtextxy(45*x,25*y/2,”10”); 

moveto(5*x,12*y);  lineto(15*x,9*y);  lineto(20*x,12*y); 
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moveto(30*x,12*y);  lineto(35*x,9*y);  lineto(45*x,12*y); 
pieslice(10*x,15*y,0,359,2);  /*  2  */ 
outtextxy(l  1  *x,3 1  *y/2,"2"); 
moveto(5*x,12*y);  lineto(10*x,15*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forccolor); 

/************************* ********************************** *********/ 

pieslice(75*x,6*y, 0,359,2);  /*  8  */ 

pieslice(70*x,8*y,0,359,2);  /*  6  */ 

pieslice(80*x,8*y,0,359,2);  /*  9  */ 

moveto(70*x,8*y);  lineto(75*x,6*y);  lineto(80*x,8*y); 

outtextxy(75*x,l  1  *y/2,"8"); 

outtextxy(68*x,8*y,"6"); 

outtextxy(82*x,8*y,"9"); 

pieslice(67*x,10*y,0,359,2);  /*  5  */ 

pieslice(64*x,12*y,0,359,2);  /*  4  */ 

pieslice(61*x,14*y, 0,359,2);  /*  2  */ 

pieslice(58*x,16*y,0,359,2);  /*  1  */ 

pieslice(83*x,10*y,0,359,2);  /*  10  */ 

moveto(70*x,8*y);  lineto(67*x,10*y);  lineto(64*x,12*y); 

lineto(6 1  *x,  14*y);  lineto(58*x,  1 6*y); 

moveto(80*x,8*y);  lineto(83*x,10*y); 

outtextxy(65*x,10*y,"5"); 

outtextxy(62*x,12*y,"4"); 

outtextxy(59*x,14*y,"2"); 

outtextxy(58*x,33*y/2,"  1 "); 

outtextxy(83*x,2 1  *y/2,"  10"); 

Pause(30*x,24*y); 

closegTaph(); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  examp462.c 
:  Atilla  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  tor  constructing  a  binary 
search  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*1 


/*  header  files  */ 
#include  <graphics.li> 
#include  "cxldef.h" 
#include  "cxlkey  .h" 
#include  "cxlmou.h" 


#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defuied(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _do3_findfirstfa,c,b) 

#define  findnext(a)  _  dos_fin<lnext(a/ 

#define  ffblk  find  _t 

#define  ff_najne  name 

#el if  defined! _ 2TTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  GRAPH  T  DEFINED 


/*  function  prototypes  */ 


/*  Utility  functions  */ 

static  void  init_graph  (void); 

static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/*  graphic  initialization  variables  */ 

I*  I**************  ^Mfc*****************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x.  y,  MaxX,  MaxY; 


/**********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^*  ********************************************************************  *^r 

static  void  register_drivers(void) 


if(repisterbgklriver(CGA_driver)  <  0)  exit(l ); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(  I ); 
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/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y**********************************************************************/ 

static  void  uiit_graph(void) 

I 

int  xasp,  yasp; 

register_drivers(); 
graplulriver  -  DETECT ; 

y**%********%******************************%**********%**************y 

initgraphf&graphdriver.&graphmode,""); 
graph_enor  =  grapliresult(); 

if(graph_error  <  0){ 
puts(graphenormsg(graph_error)); 
exit(l ); 


/* 

MaxX  =  getmaxxO; 

MaxY  =  getmaxyO; 
x  =  MaxX/8(); 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graplunode  ==  MCGAMHD)  II  (graphmode  == 
ATT400MED)  II  (graplunode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI)) 
setfillstyle(SOLID.  FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE, 


else 


/ 


setfillstyle(SOLID_FlLL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 
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static  void  confirm_graph_exit(void) 


struct  _onkey_t  *kblist; 
char  ch; 

setcolor(  backc  olor) ; 

bar(3*x/2,23*y,179*x/2,97*y/4); 

sctcolor(quitcolor); 

kb!ist=chgonkey(NULL);  /*  iiide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  ( 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor ); 

bar(3 1  *x,23*y,69*x, 97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  ( 

case  'y';  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’;  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3 ,23  *y  ,30*x,97  *y/4); 
bar(3 1  *x,23  *y  ,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS )  msshowcur( ) ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


) 

/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 


static  void  settext(void) 


settextstyle(O.O.O); 

setlinestyle(,0.4,3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 


y**********************************************************************^ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 


void  Pause(i.j) 
int  i,  j; 


settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<”); 
if(waitkey()==ESC)  confirm_graph_exit(); 

) 

^**********************************************************************^ 
!*  main  routine,  calls  exer  routine  */ 

******************************************************************** *^ 


void  tnain( ) 

( 


exer(); 
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/ft*********************************************************************/ 

/*  This  routine  illustrates  construction  of  a  binary  search  tree.  */ 

/ft*********************************************************************/ 


void  exer() 


I 

init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX.MaxY); 
rectangle(x,y,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-6-2"); 


outtextxy(2*x,2*y,"Now  we  will  try  to  give  you  an  example  about  binary  search 
tree  construction"); 

outtextxy(2*x,3*y,"We  will  show  you  how  we  applied  the  binary  search  tree  con¬ 
struction  algorithm"); 

outtextxy(2*x.4*y,"on  the  list  ’H,  F,  N,  D,  G,  L,  O,  B,  E,  J,  M,  A,  C,  I,  K’  step  by 
step."); 


outtextxy(44*x,5*y,"Step  by  step  appliction  of  the  Alg."); 

moveto(43*x,l  1  *y/2);  lineto(89*x,l  1  *y/2); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 


outtextxy(44*x,6*y, "Begin  construction  starting  with  the"); 
outtextxy(44*x,7*y, "first  letter  in  the  list  H.  Construct"); 
outtextxy(44*x,8*y,"the  root  and  label  it  with  H."); 
pieslice(27*x.5*y,0,359,2);  /*  H  */ 
outtextxy(27*x,9*y/2,"H"); 
setlinestyle(3,0,l ); 

moveto(44*x.l7*y/2);  lineto(89*x,17*y/2); 

setlinestyle(0,0,3); 

Pause(30*x,24*y ); 

setcolorlbackcoloi ); 

bar(  29*x  ,23  *y  ,70*x  ,49*y/2 ); 
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setcolor(forecolor); 

outtextxy(44*x,9*y,"Take  the  next  element  F  from  the  list."); 
outtextxy(44*x,10*y, "Compare  it  with  root,  it  is  smaller  so"); 
outtextxy(44*x,ll*y,"go  left.  There  is  no  left  child,  const-"); 
outtextxy(44*x,12*y,"ruct  it  and  label  it  with  F."); 
pieslice(17*x,7*y,0,359,2);  /*  F  */ 

outtextxy(  1 5*x,7*y  ,"F"); 
moveto(17*x,7*y);  lineto(27*x,5*y); 
setlinestyle(3,0,l); 

moveto(44*x,25*y/2);  lineto(89*x,25*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

outtextxy(44*x,13*y,"Take  the  next  element  N  from  the  list."); 
outtextxy(44*x,14*y, "Compare  it  with  root,  it  is  larger  so"); 
outtextxy(44*x,15*y,"go  right.  There  is  no  right  child,  con-"); 
outtextxy(44*x,16*y, "struct  it  and  label  it  with  N."); 
pieslice(37*x.7*y, 0.359.2);  /*  N  */ 

outtextxy(39*x,7*y,"N"); 
moveto(275,'x,5*y);  lineto(37*x,7*y); 
setlinestyle(3,0,l ); 

moveto(44*x.33*y/2);  lineto(89*x,33*y/2); 
setlinestyle(0,0,3); 

Pause(30:t<x.24*y ); 
setcolortbackcoloi ); 
bar(29*x.23*y,70*x,49*y/2); 
setcolor(  forecoloi ); 

outtextxy(44+x,17*y,"Take  D  from  the  list.  Compare  it  with"); 
outtextxy(44*x,18’,,y."the  root,  it  is  smaller  so  go  left."); 
outtextxy(44*x.I9*y. "There  is  a  left  child  so  this  time  "); 
outtextxv(44*x,20*y ."compare  D  with  left  child  F.  Since"); 
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outtextxy(44*x,21*y,"D  <=  F  go  left  again.  There  is  no  left"); 

outtextxy(44*x,22*y, "child,  construct  it,  then  label  it  with"); 

outtextxy(44*x,23*y,"D."); 

pieslice(12*x,9*y,0,359,2);  /*  D  */ 

outtextxy(10*x,9*y,"D"); 

moveto(12*x,9*y);  lineto(17*x,7*y); 

Pause(30*x,24*y); 

se  tco!or(  backcolor); 

bar(43  *x,23 *y/4, 1 79*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(44*x,6*y,"Take  G  from  the  list.  Compare  it  with"); 
outtextxy(44*x,7*y,"the  root;  it  is  smaller,  then  go  left,"); 
outtextxy(44*x,8’,<y,"it  is  greater  than  left  child,  go  right"); 
outtextxy(44*x,9*y ."there  is  no  right  child,  construct  it"); 
outtextxy(44*x,10*y,"and  label  it  with  G."); 
pieslice(22*x,9*y,0,359,2);  /*  G  */ 
outtextxy(22*x,19*y/2,"G"); 
moveto(17*x,7*y);  lineto(22*x,9*y); 

setlinestyle(3,0,l); 

moveto(44*x,21  *y/2);  lineto(89*x,21  *y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(44*x,l  l*y,"Take  L  from  the  list,  compare  it  with"); 
outtextxy(44*x,12*y,"the  root;  it  is  larger,  then  go  right,"); 
outtextxy(44*x,13*y,"it  is  smaller  than  right  child,  go  left"); 
outtextxy(44*x,14*y, "there  is  no  left  child,  construct  it"); 
outtextxy(44*x,15*y,"and  label  it  with  L."); 
pieslice(32*x,9*y,0,359,2);  /*  L  */ 
outtextxy(30*x,9*y,"L"); 
moveto(32*x,9*y);  lineto(37*x,7*y); 
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setlinestyle(3,0,l), 

moveto(44*x,3 1  *y/2);  lineto(89*x,3 1  *y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

/***%*******%***%******%*****%************* *************************% 
outtextxy(44*x,16*y,"Take  O  from  the  list,  compare  it  with"); 
outtextxy(44*x,17*y,"the  root;  it  is  larger,  then  go  right,"); 
outtextxy(44*x,18*y,"it  is  larger  than  right  child,  go  right"); 
outtextxy(44*x,19*y, "there  is  no  right  child,  construct  it"); 
outtextxy(44*x,20*y,"and  label  it  with  O."); 
pieslice(42*x.9*y  ,0,359,2);  /*  O  */ 
outtextxy(42*x,19*y/2,"0"); 
moveto(37*x,7*y);  lineto(42*x,9*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 


^**%*****************************************************************y 
outtextxy(44*x,65,'y,"Take  B  from  the  list,  compare  it  with"); 
outtextxy(44*x,7*y,"the  root(H);  it  is  smaller,  then  go  left,"); 


outtextxy(441|'x,8*y,"it  is  smaller  than  left  child(F),go  left"); 
outtextxy(44*x,9*y,"it  is  still  smaller  than  left  child(D)"); 


outtextxy(44*x,10*y,"then  go  left  again.  But  as  you  see  D"); 
outtextxy(44*x,l  1  *y,"has  no  left  child,  so  construct  one"); 
outtextxy(44*x,12*y,"and  label  it  with  B."); 
pieslice(7*x,l  1  *y, 0,359,2);  /*  B  */ 

outtextxy(5*x,l  l*y,"B"); 
nioveto(7*x,l  l*y);  lineto(12*x,9*y); 
setlinestyle(3.0,l ); 

moveto(44*x,25*y/2);  lineto(89*x,25*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
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setcolorfbackcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 


outtextxy(44*x,13*y,"Take  E  from  the  list,  compare  it  with"); 
outtextxy(44*x,14*y,"the  root(H);  it  is  smaller,  then  go  left"); 
outtextxy(44*x,15*y,"it  * ,  smaller  than  left  child(F),go  left"); 
outtextxy(44*x,16*y,"it  is  larger  than  left  child(D),go  right"); 
outtextxy(44*x,17*y,"But  as  you  see  D  has  no  right  child,  so"); 
outtextxy(44*x,18*y,"  construct  one  and  label  it  with  E."); 
pieslice(17*x,l  l*y,0,359,2);  /*  E  */ 
outtextxy(17*x,23*y/2,"E"); 
moveto(  1 2*x ,9*y );  lineto(  1 7*x,  1 1  *y ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,705|'x,49*y/2); 

setcolor(forecolor); 

/********** **********4<********** *****%********************* **********/ 


outtextxy(44*x,65Ky,,'Take  J  from  the  list,  compare  it  with"); 
outtextxy(44*x,7*y,"the  root(H);  it  is  larger,  then  go  right"); 
outtextxy(44*x,8*y,"it  is  smaller  than  right  child(N),go  left”); 
outtextxy(44*x,9*y,"it  is  still  smaller  than  left  child(L)"); 
outtextxy(44*x,10*y,”then  go  left  again.  But  as  you  see  L"); 
outtextxy(44*x,l  l*y,"has  no  left  child,  so  construct  one"); 
outtextxy(44*x,12*y,"and  label  it  with  J."); 
pieslice(27*x.l  1  *y, 0,359,2);  /*  J  */ 
outtextxy(24*x,l  l*y,"J"); 
moveto(27*x,l l*y);  lineto(32’,,x,9*y); 
setlinestyle(3,0,l ); 

moveto(44*x.25I,'y/2);  lineto(89*x,25*y/2); 
setlinestyle(0.0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolort  forecolor); 
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/********************************************************************/ 
outtextxy(44*x,13*y,"Take  M  from  the  list,  compare  it  with"); 
outtextxy(44*x,14*y,"the  root(H);it  is  larger,  then  go  right"); 
outtextxy(44*x,15*y, "again, it  is  smaller  than  right  child(N)"); 
outtextxy(44*x,16*y,"go  left,  but  it  is  larger  than  left"); 
outtextxy(44*x,17*y,"child(L),  go  right.  But  as  you  see  L,has"); 
outtextxy(44*x,18*y,"no  right  child,  so  construct  one  and"); 
outtextxy(44*x,19*y, "label  it  with  M."); 
pieslice(37*x,  1 1  *y ,0,359,2);  /*  M  */ 
outtextxy(37  *x,23*y/2,"M" ); 
moveto(32*x,9*y);  lineto(37*x,l  l*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y.70*x,49*y/2); 
setcolor(  forecolor); 

/********************************************************************/ 

outtextxy(44*x,6*y,"Take  A  from  the  list,  compare  it  with"); 

outtextxy(44*x,7*y,"the  root(H);  it  is  smaller,  then  go  left"); 

outtextxy(44*x,8*y,"it  is  smaller  than  left  child(.F),go  left"); 

outtextxy(44*x,9*y,"it  is  still  smaller  than  left  child(D)"); 

outtextxy(44*x,10*y,"then  go  left  again.  Again  it  is  smaller"); 

outtextxy(44*x,l  1  *y,"than  left  child(B)  so  go  left,  but  B"); 

outtextxy(44*x,12*y,”has  no  left  child,  so  construct  one"); 

outtextxy(44*x,13*y,"and  label  it  with  A."); 

pieslice(2*x.l3*y,0,359,2);  /*  A  */ 

outtextxy(2*x,27*y/2,"A"); 

moveto(2*x,13!t'y);  lineto(7*x,l  l*y); 

setlinestyle(3,0,l ); 

moveto(44*x.27*y/2);  lmeto(89*x,27*y/2); 
setlinestyle{0.0,3); 

Pause(301|'x,24*y ); 
setcolor(backcolor); 
baj(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

/******************************************+*************************/ 
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outtextxy(44*x,14*y,”Take  C  from  the  list,  compare  it  with"); 
outtextxy(44*x,15*y,"the  root(H);  it  is  smaller,  then  go  left"); 
outtextxy(44*x,16*y,"it  is  smaller  than  left  child(F),go  left"); 
outtextxy(44*x,17*y,"it  is  smaller  than  left  child(D),go  left"); 
outtextxy(44*x,18*y," Again  it  is  larger  than  left  child(B)  so"); 
outtextxy(44*x,19*y,"go  right,  but  B  has  no  right  child,  so"); 
outtextxy(44*x,20*y, "construct  one  and  label  it  with  C."); 
pieslice(12*x,13*y,0,359,2);  /*  C  */ 

outtextxy(12*x,27*y/2,"C"); 
moveto(7*x,ll*y);  lineto(12*x,13*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(43*x,23*y/4,179*x/2,49*y/2); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 


/********************************************************************/ 


outtextxy(44*x,6*y,"Take  I  from  the  list,  compare  it  with"); 


outtextxy(44*x,7*y,"the  root(H);  it  is  larger,  then  go  right,"); 
outtextxy(44*x,8*y,"it  is  smaller  than  right  child(N),go  left"); 
outtextxy(44*x,9*y,"it  is  still  smaller  than  left  child(L)"); 


outtextxy(44*x,10*y,”then  go  left  again.  But  as  you  see  I"); 


outtextxy(44*x,l  l*y,"is  still  smaller  than  J,  go  left  again."); 
outtextxy(44*x,  1 2*y ,"But  J  has  no  left  child,  so  construct  "); 


outtextxy(44*x,13*y,"one  and  label  it  with  I."); 
pieslice(22*x,13*y,0,359,2);  f*  1  */ 
outtcxtxy(22*x,27*y/2,"l"); 
moveto(22*x,13*y);  lineto(27,(,x,l  l*y); 


setlinestyle(3,0,l ); 

moveto(44*x,27*y/2);  luieto(89*x,27*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 


setcolor(forecolor); 

^*!«***********^t<***^l<*************************:,'*******************,,'****/ 

outtextxy(44*x,14*y,"Take  K  from  the  list,  compare  it  with"); 
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outtextxy(44*x,15*y,"the  root(H);  it  r  larger,  then  go  right"); 
outtextxy(44*x,16*y, "again,  it  is  smaller  than  right  chiid(N)"); 
outtextxy(44*x,17*y,”go  left,  it  is  still  smaller  than  left"); 
outtextxy(44*x,18*y,"child(L),  go  right.  This  time  it  is  lar-"); 
outtextxy(44*x,19*y,"ger  than  left  child(J),  so  go  right.But"); 
outtextxy(44*x,20*y,"J  has  no  right  child,  so  construct  one"); 
outtextxy(44*x,21*y,"and  label  it  with  K."); 
pieslice(32*x,13*y,0,359,2);  /*  K  */ 
outtextxy(32*x,27*y/2,"K"); 
moveto(27*x,l  l*y);  lineto(32*x,13*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(43*x,23*y/4,179*x/2,49*y/2); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

^^i,*****************************************************************/ 

outtextxy(443,'x,6,,'y,’,As  you  see,  we  constructed  a  binary  tree"); 
outtextxy(44*x,7*y,"with  the  given  list  of  letters.  Further-"); 
outtextxy(44*x,8*y,"more,  labels  for  the  left  descendants"); 
outtextxy(44*x,9*y, "(those  on  the  left  side)  are  smaller  than"); 
outtextxy(44*x,10*y,"the  label  for  the  parent,  and  labels  for"); 
outtextxy(44*x,l  l*y,"the  right  descendants  are  larger.  Thus"); 
outtextxy(44*x,12*y,"by  using  the  algorithm,  we  did  construe-"); 
outtextxy(44*x,13*y,"a  binary  search  tree."); 

Pause(30*x,24*y); 

closegraph(); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  examp463.c 
:  Atilla  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  sorting  a  given  list  us¬ 
ing  bnary  search  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined( _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a.c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  inf  i); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/**********************************************************************/ 
/*  graphic  initialization  variables  */ 

y*  *******************•'  Jic*******************************************-****^ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor, 

int  forecolor; 

int  quitcolcr; 

int  x,  y,  MaxX,  MaxY; 


**********************************************.'******************■****  j 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

j*  ****************** K*********************  *****************************/ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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/***************************************************+******************/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

!***+******************************************************************! 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  L  t.  T-  CT; 

^** ********************************************************* ^********^ 

initgraph(&graphdriver,&graphmode,'M'); 

graph_error  =  graphresult(); 

y*******¥**************************************************jjc*********y 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

j*  ************** *****************************************************/ 

MaxX  =  getrnaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmodc  -=  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  i'  (graphmode  ==  MCGAH1)  II  (graphmode  ==  VTT400HI))  { 
setfillstyle(SOLiu_FILL , BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

1 

else  { 

setfillstyle(SOLID_FILL,BI  .UE); 
backcoior  =  BLUE; 
quitcolor  =  RED; 

I 

forecolor  =  WHITE; 
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y*  ***************************************** ****************************^ 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

se  tcolor(  backcolor) ; 
bar(3*x/2,23*y,179*x/2,97*y/4); 
setcolor(quitcolor) ; 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  y’)  I!  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  Y)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

1 

switch  (ch)  { 

case  ’y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinitQ; 
exit(0); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N':  setculor(backcolor); 


1426 


bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y  ,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_rnouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

********************************************************** *******/ 
/*  This  function  sets  the  text  default  values  */ 

t  *********************************************************************J 

static  void  settext(void) 

{ 

settcxtstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

) 

j*****  *****************************************************************J 

/*  main  routine,  calls  exer  routine  */ 

void  main() 

{ 

exer(); 
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y*  *********************************************************************/ 

/*  This  routine  illustrates  sorting  via  a  binary  search  tree.  */ 

t  *********************************************************************y 

void  exer() 

{ 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2,"EXAMPLE  4-6-3"); 

/Ik*******************************************************************/ 
outtextxy(2*x,2*y,"If  you  remember,  we  have  used  this  example  both  while  we 
were  talking  about"); 

outtextxy(2*x,3*y, "traversals  and  constructing  binary  search  trees.  We  insist  on 
using  the  same"); 

outtextxy(2*x,4*y,"example,  because  we  think  that  it  will  be  helpful  for  you  to  com¬ 
pare"); 

^*******************************************************************s|y 

pieslice(27*x,5*y,0,359,2);  /*  H  */ 

pieslice(17*x,7*y,0,359,2);  /*  F  */ 

pieslice(37*x,7*y,0, 359,2);  /*  N  */ 

moveto(17*x,7*y);  lineto(27*x,5*y);  lineto(37*x,7*y); 

outtextxy(27*x,9*y/2,"H"); 

outtextxy(  1 5*x,7*y,"F"); 

outtextxy(39*x,7*y,"N"); 

pieslice(12*x,9*y,0,359,2);  /*  D  */ 

pieslice(22*x,9*y,0,359,2);  /*  G  */ 

pieslice(32*x,9*y, 0,359,2);  /*  L  */ 

pieslice(42*x,9*y,0,359,2);  /*  O  */ 

moveto(12*x,9*y);  lineto(17*x,7*y);  lineto(22*x,9*y); 

moveto(32*x,9*y);  lineto(37*x,7*y);  lineto(42*x,9*y); 

outtextxy(10*x,9*y,"D"); 

outtextxy(22*x,19*y/2,"G"); 

ouuextxy(30*x,9*y,”L"); 

outtextxy(42*x,19*y/2,"0"); 

pieslice(7*x.l  1  *y,0.359,2j;  /*  B  */ 
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pieslice(17*x,ll*y, 0,359,2);  /*  E  */ 

pieslice(27*x,  1 1  *y, 0,359, 2);  /*  J  */ 

pieslice(37*x,l  l*y,0,359,2);  /*  M  */ 

moveto(7*x,  1 1  *y);  lineto(  1 2*\,9*y);  lineto(  1 7*x,  1 1  *y); 

moveto(27*x,l  l*y);  lineto(32*x,9*y);  lineto(37*x,l  l*y); 

outtextxy(5*x,ll*y,"B"); 

outiextxy(17*x,23*y/2,"E"); 

outtextxy(24*x,l  l*y,"J"); 

outtextxy(37*x,23*y/2,"M"); 

pieslice(2*x,13*y, 0,359,2);  /*  A  */ 

pieslice(12*x,13*y,0,359,2);  /*  C  */ 

pieslice(22*x,  1 3*y, 0,359,2);  /*  I  */ 

pieslice(32*x,  1 3*y,0,359,2);  /*  K  */ 

moveto(2*x,13*y);  lineto(7*x,l l*y);  lineto(12*x,13*y); 

moveto(22*x,13*y);  lineto(27*x,l  l*y);  lineto(32*x,13*y); 

outtextxy(2*x,27*y/2,"A"); 

outtextxy(12*x,27*y/2,"C"); 

outtextxy(22*x,27*y/2,"I"); 

outtextxy(32*x,27*y/2,"K"); 

outtextxy(44*x,5*y,‘  Notes"); 
moveto(43*x,l  l*y/2);  Iineto(89*x,l  l*y/2); 
outtextxy(3*x,29*y/2, "Inorder  Listing"); 
moveto(2*x,15*y);  lineto(40*x,15*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(44*x,6*y, "Since  you  all  know  what  we  are  doing,"); 
outtextxy(44*x,7*y,"this  time  we  won’t  tell  you  the  detailed"); 
outtextxy(44*x,8*y, "steps.  We  want  to  draw  your  attention"); 
outtextxy(44*x,9*y,"on  the  outcoming  inorder  listing."); 
outtextxy(3*x,16*y,"A"); 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(5*x,16*y,"B"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 

outtextxy(7*x,16*y,"C"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(9*x,16*y,"D"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
se  tcol  or(  f orec  ol  or) ; 

/********************************************************************/ 
outtextxy(l  l*x,16*y,"E"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(13*x,16*y,"F'); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolorf  forecolor); 

/*»******************************************************************/ 


outtextxy(15*x,16*y,"G”); 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

^* ***************************%****%**************★*******************/ 
outtextxy(17*x,16*y,"H"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

y***********************************************************^^******^ 

outtextxy(19*x,16*y,"I"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 

outtextxy(2l*x,16*y,"J"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
se  tcol  or(  f orecol  or) ; 

/********************************************************************/ 

outtextxy(23*x,16*y,”K”); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
se  tcolor(  forecolor) ; 

/********************************************************************/ 

outte\ixy(25*x,16*y,”L"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,70*x,49*y/'2); 

setcolor(forecolor); 

outtextxy(27*x,16*y,"M"); 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29*x,23*y,70*x,49*y/2); 

setcolor(forecolor); 

^*  ************************************************************** *****j 

outtextxy(29*x,16*y,"N"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
se  tcolor(  forecolor) ; 

^********* *********************************************************** I 

outtextxy(3l*x,16*y,"0"); 

!********************************************************************! 

setlinestyle(3,0,l); 

moveto(44*x,19*y/2);  lineto(89*x,I9*y/2); 
setlinestyle(0,0,3); 

outtextxy(44*x,10*y,"As  you  all  see,  the  inorder  listing  is"); 
outtextxy(44*x,l  l*y,"in  alphabetical  order.  This  way  we  have"); 
outtextxy(44*x,12*y, "showed  you  one  of  the  posible  and  easi-"); 
outtextxy(44*x,13*y,"est  ways  to  implement  sorting.  But  as  "); 
outtextxy(44*x,14*y,”we  said  earlier,  if  only  sorting  is  in"); 
outtextxy(44*x,15*y, "question,  there  are  better  and  easier "); 
outtextxy(44*x,16*y,"ways  to  implement  sorting."); 
/**************************+*****************************************! 
Pause(30*x,24*y); 
closegraphO; 
videoinit(); 

} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  examp464.c 
:  Atilla  BAKAN 
:  Apr.  18,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  tire  example  graph  for  searching  on  a  binary 
search  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined( _ ZTC _ )  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#el  if  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  fflilk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

/* **********************%**********************************************/ 
/*  graphic  initialization  variables  */ 

^fr*********************************************************************^ 

int  curr_mode; 

int  graphdriver; 

int  graplunotle; 

bit  g  •  aph_error; 

bit  backcolor; 

bit  forecolor; 

int  quitcolor; 

bit  x,  y,  MaxX,  MaxY ; 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

I* ++++*111  fc^*************************************************************/ 

static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 
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/*  This  fiiction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

( 

int  xasp,  yasp; 


regis  ter_drivers( ) ; 
graphdriver  =  DETECT; 

^it<****ii<++***>i<**j)<+***+**>(<>('+i)<*^*******++**>t<******+>f*****>(>+**>(<**ii<*j(<*>i<*i)<*y 


initgraph(&graphdriver,&graphmode,""); 
grapherror  =  graphresult(); 

y'********************************************************************^ 

if(graph_error  <  0)  { 

puts(grapherronnsg(graph_error)); 

exit(l); 

) 

^i********************************************************************^ 


MaxX  =  getmaxx(); 
MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25; 
settextO; 

if  ((graphmode  ==  CGA1II)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graplimode  ==  MCGAHI)  II  (graphmode  ==  ATT400H1))  | 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

I 

else  { 

setfillstyle(SOLlD_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 


forecolor  =  WHITE; 
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/fr********************************************************************* 

static  void  confirm_graph_exit(void) 

I 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecurO; 
outtextxy(3*x/2,24*y,’’Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y  )  H  (ch  =  ’n’)  II  (ch  ==  'Y’>  II  (ch  ==  ’N')))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  ( ); 

if((ch  ==  y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y\)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x.23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  { 

case  'y':  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n‘:  setcolor(backcolor); 

bar(4*x/3,23I,<y,30’,'x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 
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bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcurQ; 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

) 

^fr*********************************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

^fr***************************************^*****************************/ 

static  void  settext(void) 

( 

settextstyle(O.O.O); 

setlinestyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

) 

I**********************************************************************/ 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/^^ifr******************************************************************/ 

void  Pause(i,j) 
int  i,  j; 

1 

settextO; 

outtextxy( i,j,"»>PRESS  A  KEY  TO  CONTINUE...  <<<"); 
if(waitkey(  )==ESC)  confirm i_graph_exit(); 

) 

/*  main  routine,  calls  exer  routine  */ 

^♦♦♦♦♦t****************************************************************/ 

void  inain( ) 

( 

exert ); 
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/’fr*********************************************************************^ 

/*  This  routine  illustrates  searching  in  a  binary  search  tree.  */ 

/******%*****%************%********************************************/ 


void  exer() 

{ 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y  .MaxX-x,MaxY -y/2); 

outtextxy(38*x,y/2, "EXAMPLE  4-6-4"); 

outtextxy(2*x.2*y,"On  this  binary  search  tree  we  will  first  search  for  A,  then  L."); 

pieslice(17*x.5*y,0, 359,2);  /*  K  */ 

pieslice(l2*x.7*y,0,359,2);  /*  B  */ 

pieslice(22*x.7*y, 0,359,2);  /*  T  */ 

moveto(12*x.7*y);  lineto(17*x,5*y);  lineto(22*x,7*y); 

outtextxy(17*x,9*y/2,"K"); 

outtextxy(10*x,7*y,"B"); 

outtextxy(24*x,7*y,"T"); 

pieslice(  1 7*x.9*y,0,359,2);  /*  L  */ 

pieslice(27*x,9*y,0,359,2);  /*  Z  */ 

moveto(l7*x,9*y);  lineto(22*x,7*y);  lineto(27*x,9*y); 

outtextxy(  1 7*x,  1 9*y/2,"L" ); 

outtextxy(27*x,19*y/2,"Z"); 

outtextxy(44*x,5*y,"Notes"); 

moveto(43*x,l  l*y/2);  lineto(89*x,l  l*y/2); 

outtextxy(3*x,29*y/2,"The  nodes  that  we  searched  so  far"); 

moveto(2*x,15*y);  lineto(40*x,15*y); 

Pause(30*x,24*y); 
setcolort  backcolor); 
bar(29*x,23*y,70*x.49*y/2); 
setcolort  forecolor); 

/******************************************************************%* 


outtextxy(44*x,6*y,"The  search  starts  at  the  root,  K.  Since"); 
outtextxy(44*x,7*y,"A  <  K,  the  search  moves  down  the  left"); 
outtextxy(44*x,8*y, "subtree  of  K."); 
oultextxy(3*x,16*y,"K"); 
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setlinestyle(3,0,l ); 

moveto(44*x,17*y/2);  lineto(89*x,17*y/2); 
setlinestyle(0,0,3 ); 

Pause(30*x,24*y); 
se  tcol  ortbackcolor ) ; 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(forecolor); 

outtextxy(44*x,9*y,”We  now  at  the  left  subtree(B)  of  root"); 
outtextxy(44*x,10*y,"K.  Since  A  <  B,  the  search  would  move"); 
outtextxy(44*x,l  l*y,"down  to  the  left  subtree  of  B.”); 
outtextxy(5*x,16*y,"B"); 
setliiiostyle(3,0,l ); 

moveto(44*x.23*y/2);  lineto(89*x,23*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcoloftbackcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolort  forecolor); 

^*  *****%*****%%*********%%***%%*******%*%*******%***%**% 4********%*** 

outtextxy(44*x,12*y, "However,  B  has  no  left  subtree,  so  the”); 
outtextxy(44*x,13*y, "search  terminates,  with  the  item  not"); 
outtextxy(44*x,14*y  ."found."); 
outtextxy(7*x,16*y,"Item  not  found!"); 
setlinestyle(3,0,l ); 

moveto(44*x,17*y/2);  lineto(89*x,17*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolort  backcolor ); 
bar(29*x,23*y.70*x.49*y/2); 
bar(43*x,23*y/4,179*x/2.49*y/2); 
bart3*x,61  *y/4,43*x,20*y); 
setcolort  forecolor); 

/*4*****%%:4(**************%**4*jf%*  4?  *********%******  4%***%%%**%*****%*^ 

outtextxy(44*x,6*y,"Now  consider  searching  for  the  key  L."); 
outtextxy(44*x,7*y, "Since  L  >  K,  the  search  moves  down  the"); 
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outtextxy(44*x,8*y, "right  subtree  of  K."); 

outtextxy(3*x,16*y,"K"); 

setlinestyle(3,0,i); 

moveto(44*x.l7*y/2);  lineto(89*x,17*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x.23*y,70*x,49*y/2); 

setcolor(forecolor); 

outtextxy(44*x,9*y,"Now  we  are  at  the  right  subtree(T)  of’); 
outtextxy(44*x,10*y,"the  root  K.  L  <  T,  so  the  next  move"); 
outtextxy(44*x,l  l*y,"is  down  to  the  left  subtree  of  T."); 
outtextxy(5*x,16*y,"T"); 
setlinestyle(3,0,l ); 

inoveto(44*x,23*y/2);  lineto(89*x,23*y/2); 
setlinestyle(0,0,3); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,70*x,49*y/2); 
setcolor(  forecolor); 

outtextxy(44*x,12*y,"Now  we  are  at  the  left  subtree(L)  of  T."); 
outtextxy(44*x,13*y, "Since  this  is  the  same  as  the  search"); 
outtextxy(44*x,14*y,"key,  the  search  terminates,  with  the"); 
outtextxy(44*x,15*y,"item  found."); 
outtextxy(7*x,16*y,"L  (Item  found)"); 
setlinestyle(3,0,l); 

moveto(44*x.3 1  *y/2);  lineto(89*x,3 1  *y/2); 
setlinestyle(0,0,3); 

outtextxy(44*x,16*y,"We  hope  that  you  got  the  idea."); 

Pause(30*x,24*y); 
closegraphO; 
videoiiiit( ); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q461.c 

:  Atilla  BAKAN 
:  Apr.  4,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  the 
binary  search  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#indude  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined/ _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  show_alg  (void); 

static  void  step_solutior:  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

I* fc********************************************************************^ 

/*  miscellaneous  global  variables  */ 

^* ************************************♦********************************/ 
int  in_the_exercise  =  1; 


/*  graphic  initialization  variables  */ 

/♦fc^*******************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor; 

int  forecolor; 

int  quiicolor; 

int  x,  y,  MaxX,  MaxY; 
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y**********************************************************************y 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y**********************************************************************y 

static  void  register_drivers(void) 

( 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


y**********************************************************************y 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT; 

y*******************************************************************!^ 

initgraph(&graphdriver,&graphmode,"”); 
graph_error  =  graphresult(); 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 


y********************************************************************y 
MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y*****************************************************************)|<**y 

settext(); 

y********************************************************************y 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 

**************************************** *****************************/ 
static  void  confirm_graph  exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*yM); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraph(); 
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videoinit(); 

exu(O); 

break; 

case  ’Y  :  ciosegraph(); 
videoinitQ; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97  *y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default ;  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 


static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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y *********************************************★**************★*********/ 


/*  Equivalent  of  press_a_key  function  for  graphics  screen 


*/ 


/**********************************************************************/ 


void  Pause (i,j) 
int  i,  j; 

( 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 


y* ******************************************************************** 

/*  main  routine,  calls  exer  routine  */ 

J**********************************************************************J 

void  main() 

{ 

exer(); 

} 


j*  a|c  *  *  Jjc  ajc  *  3fc  %  *  jfc  jfc  s|c  *  jf:  *  %  %  *  j|c  *  *  *  *  *  *  *  *  *  *  *  *  sje  *  jfe  *  *  ajc  *  *  *  *  *  *  *  %  *  *  *  a#c  afe  *  *  %  %  *  %  *  %  *  *  *  *  %  %  *  *  %  *  ajc  j 

/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 


/* 


*/ 


static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,Max  Y-y/2); 
outtextxy(38*x,y/2, "EXERCISE  1 "); 

outtextxy(5*x,2*y, "Construct  a  binary  search  tree  for  the  following  sequence  of  let¬ 
ters."); 

outtextxy(10*x,3*y,"N,  O,  F,  T,  D,  J,  I,  B,  L,  Q,  U,  K,  P,  A,  V,  S,  G,"); 
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/********************************************************************/ 
while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y,"Choose  one  of  the  following,  if  you  need 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,19*y,"Enter  your  choice  here  —  >"); 

Ch  *  getch  (); 

if(Ch==ESC)  confirm. _graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  V)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Piease  type  a,  b,  c  or  d"); 

Ch  =  getch  0; 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’))  ( 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 

} 

} 

switch  (Ch)  ( 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,20*y, "again.  Press  any  key  to  continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2, 1 79*x/2,2 1  *y); 

bar(2*x,13*y,  1 79*x/2,49*y/2); 

setcolor(forecolor); 

show_alg(); 

break; 

case  ’b’:  outtextxy(47*x,19*y,"b"); 
outtextxy(52*x,19*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 
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setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*y,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y,"solution.  So  press  any  key  to  "); 
outtextxy(52*x,2 1  *y, "continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case ’d’:  outtextxy(47*x,19*y,"d"); 
confinn_exit(); 
break; 

default  :  break; 


} 

closegraphO; 

videoinitQ; 

} 
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^/* ********************************************************************* 
/*  This  routine  gives  preorder  traversal  of  a  binary  tree  algorithm  */ 

/*  ********************************************************************* 
static  void  show_alg(void) 

{ 

outtextxy(  1 5*x,5*y, "BINARY  SEARCH  TREE  CONSTRUCTION  ALGO¬ 
RITHM"); 

outtextxy(2*x,7*y,"Step  1  (start).  Construct  a  root  and  label  it  Al.  If  n  =  1,  we  are 
done;"); 

outtextxy(2*x,8*y, "otherwise,  let  V  =  Al  and  k  =  2."): 

outtextxy(2*x,10*y,"Step  2  (if  smaller,  go  left).  If  V  <=  Al,  go  to  Step  3.  Other¬ 
wise,  we  have"); 

outtextxy(2*x,l  l*y,"Ak  <=  V."); 

outtextxy(2*x,13*y,"  (a)  If  V  has  no  left  child,  construct  a  left  child  L  for  V  and  la¬ 
bel  L  "); 

outtextxy(2*x,14*y,"with  Ak.  If  k  =  n,  we  are  done;  otherwise,  increase  k  by  1,  set 

V  =  Al,  and  "); 
outtextxy(2*x,15*y,"go  to  Step  2."); 

outtextxy(2*x,16*y,"  (b)  Otherwise,  if  V  has  a  left  child  L,  set  V  =  L,  and  go  to 
Step  2."); 

outtextxy(2*x,18*y,"Step  3  (if  larger,  go  right).  We  have  V  <=  Ak  ."): 
outtextxy(2*x,19*y,"  (a)  If  V  has  no  right  child,  construct  a  right  child  R  for  V  and 

label  R  "); 

outtextxy(2*x,20*y,"with  Ak.  If  k  =  n,  we  are  done;  otherwise,  increase  k  by  1,  set 

V  =  Al,  and"); 
outtextxy(2*x,21*y,"go  to  Step  2."); 

outtextxy(2*x,22*y,"  (b)  Otherwise,  if  V  has  a  right  child  R,  set  V  =  R,  and  go  to 
Step  2."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(2*x,7*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

1 
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/****S.*******4^********************************************************/ 

/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

z******************************************* ********++*****************/ 

static  void  compare_solutions(void) 

l 

setcolor(backcolor);  J*  Clean  the  game  field  */ 

bar(2*x,7*y/2,179*x/2,49*y/2); 

se  tcolor(  f orecolor); 

/******************%***********************************************%*/ 

pieslice(40*x,5*y, 0,359,2); 

pieslice(35*x,7*y,0,359,2); 

pieslice(45*x,7*y,0,359,2); 

pieslice(30*x,9*y,0,359,2); 

pieslice(38*x,9*y,0, 359,2); 

pieslice(50*x,9*y,0,359,2); 

pieslice(25*x,l  l*y,0,359,2); 

pieslice(35*x,l  l*y,0,359,2); 

pieslice(42*x,l  l*y,0,359,2); 

pieslice(46*x.l  l*y, 0,359,2); 

pieslice(55*x,  1 1  *y, 0,359,2); 

pieslice(20*x,  1 3*y,0, 359,2); 

pieslice(30*x,  1 3*y,0,359,2); 

pieslice(38*x,13*y, 0,359,2); 

pieslice(42*x,  1 3*y,0,359,2); 

pieslice(50*x,13*y, 0,359,2); 

pieslice(60*x,  1 3*y,0,359,2); 

moveto(20*x,13*y);  lineto(25*x,l  1  *y); 

lineto(30*x,9*y);  lineto(35*x,7*y); 

lineto(40*x,5*y);  lineto(45*x,7*y); 

lineto(50*x,9*y);  lineto(55*x,l  l*y); 

lineto(60*x,13*y); 

moveto(30*x,13*y);  lineto(35*x,l  1  *y); 
lineto(38*x,9*y);  lineto(42*x,l  l*y); 
lineto(38*x,13*y); 

moveto(35*x,7*y);  lineto(38*x,9*y); 
moveto(42*x,l  3*y);  lineto(46*x,l  l*y); 
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lineto(50*x,13*y); 

moveto(46*x,l  l*y);  lineto(50*x,9*y); 

outtextxy(79*x/2,9*y/2,"N"); 

outtextxy(33*x,7*y,"F"); 

outtextxy(46*x,7*y,"0"); 

outtextxy(28*x,9*y,"D"); 

outtextxy(39*x,9*y,"JM); 

outtextxy(5 1  *x,9*y,”T"); 

outtextxy(23*x,l  l*y,"B"); 

outtextxy(33*x,l  l*y,'T'); 

outtextxy(43*x,l  l*y,"L"); 

outtextxy(47*x,l  l*y,"Q"); 

outtextxy(56*x,l  l*y,"U"); 

outtextxy(20*x,27*y/2,"A"); 

outtextxy(30*x,27*y/2,"G"); 

ointextxy(38*x,27*y/2,”K"); 

outtextxy(42*x,27*y/2,"P"); 

outtextxy(50*x,27*y/2,"S"); 

outtextxy(60*x,27*y/2,"V"); 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,7*y/2,179*x/2,49*y/2); 

setcolor(  forecolor); 
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^*  *********************************************************************/ 
/*  This  routine  gives  the  step  by  step  solution  to  the  exerc»  e  */ 

/**********************************************************************/ 
static  void  step_solution(void) 

{ 


setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,7*y/2  179*x/2,49*y/2); 
setcolor(forecolor); 

/********************************************************************/ 


pieslice(40*x,5*y,0, 359,2); 
outtextxy(79*x/2,9*y/2,"NM); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^/3#c  *  *  **  5*C  *  *  *******  *  *  **  *  ***  *  5*C*  %  *  *  *  **  *  jjc  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ijc  *  %  *  *  *  *  *  *  *  *  j 


pieslice(45*x,7*y, 0,359,2); 

outtextxy(46*x,7*y,"0"); 

moveto(40*x,5*y);  lineto(45*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(35*x,7*y,0,359,2); 
outtextxy(33*x,7*y,"F'); 
moveto(40*x,5*y);  linetot35*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

j* ****************************************************************** 


pieslice(50*x,9*y,0,359,2); 
outtextxy(51*x,9*y,"T"), 
moveto(50*x,9*y);  lineto(45*x,7*y); 
Pause(30*x,24*y); 
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setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
se  tcolor(forecolor) ; 

/********************************************************************/ 
pieslice(30*x,9*y,0, 359,2); 
outtextxy(28*x,9*y,"D"); 
moveto(30*x,9*y);  lineto(35*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


/********************************************************************/ 


pieslice(38*x,9*y,0,359,2); 
outtextxy(39*x,9*y,"J"); 
moveto(38*x,9*y);  lineto(35*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y1***************************************************’ |t***************=ty 


pieslice(35*x,  1 1  *y,0,359,2); 

outtextxy(33*x,ll*y,"I"); 

moveto(35*x,l  l*y);  lineto(38*x,9*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

se  tcolor(forecolor) ; 


pieslice(25*x,  1 1  *y, 0,359, 2); 
outtextxy(23*x,l  l*y,"B"); 
moveto(25*x,l  l*y);  lineto(30*x,9*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^+*j(c***^t****j(!****'****************#*j([*#*!(!*******j(t************j|t**j|t*****^ 
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pieslice(42*x,l  l*y, 0,359,2); 

outtextxy(43*x,l  l*y,"L”); 

moveto(42*x,l  l*y);  lineto(38*x,9*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


/********************************************************************y 


pieslice(46*x,l  l*y, 0,359,2); 
outtextxy(47*x,l  l*y,"Q"); 
moveto(46*x,l  l*y);  lineto(50*x,9*y); 
Pause(30*x,24*y); 
setcolor(backcolor) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 


pieslice(55*x,  1 1  *y, 0,359,2); 
outtextxy(56*x,l  l*y,"U"); 
moveto(55*x,l  l*y);  lineto(50*x,9*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y********************************************************************^ 


pieslice(38*x,13*y,0, 359,2); 
outtextxy(38*x,27*y/2,"K"); 
moveto(42*x,l  l*y);  lineto(38*x,13*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 


pieslice(42*x,13*y,0,359,2); 
outtextxy(42*x,27*y/2,''P"); 
moveto(46*x,  1 1  *y);  lineto(42*x,  1 3*y ); 
Pause(30*x,24*y); 
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setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


^******************* k*************************************************/ 


pieslice(20*x,13*y,0,359,2); 

outtextxy(20*x,27*y/2,"A"); 

moveto(25*x,l  l*y);  lineto(20*x,13*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(60*x,  1 3*y,0,359,2); 

outtextxy(60*x,27*y/2,"V"); 

moveto(55*x,l l*y);  lineto(60*x,13*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

se  tcolor(  forecolor) ; 


pieslice(50*x,  1 3*y,0,359,2); 

outtextxy(50*x,27*y/2,"S"); 

moveto(46*x,l  l*y);  lineto(50*x,13*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(30*x,  1 3*y  ,0,359,2); 

outtextxy(30*x,27*y/2,"G"); 

moveto(35*x,  1 1  *y);  lineto(30*x,  1 3*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

se  tcolor(forecolor) ; 

setcolor(backcolor);  /*  Clean  the  game  field  */ 
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bar(2*x,7*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

} 

/**********************************************************************y 

static  void  conftrni_e'':'(void) 

{ 

char  ch; 

outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  *N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  { 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  V:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x)37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

) 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q462.c 
:  Atilla  BAKAN 
:  Apr.  4,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  program  contains  the  second  exercise  about  the 
binary  search  trees. 


MACHINE/COMPILER  :  Tliis  program  is  written  with  EBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxhnou.h" 

#if  defined(_TLTRBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#e  ndif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm  exit  (void); 


^+*********  +  ***********************  +  #**#**#*#*]l<l|«#*>!<***!|c****i|<i»c****  +  *!|t:)t*:|y 

/*  miscellaneous  global  variables  */ 

/***************************** fc****************************************^ 

int  in_the_exercise  =  1 ; 


/*  graphic  uiitialization  variables  */ 

int  curr_mode; 

int  graphdriver; 

bit  graplunode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

bit  x,  y,  MaxX,  MaxY; 
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y****************************************************************+*****/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^fr*********************************************************************/ 


static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(i); 
if(rcgisterbgidriver( ATT_driver)  <  0)  exit(  1 ); 

) 


/**********************************************************************/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/**********************************************************************/ 
static  void  init_graph(void) 


rnt  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

I************************************#*******************************/ 

init  graph(& graphdriver  ,&graphmode ,"") ; 
graph_error  =  graphresult(); 

^*j(<l(<*j(t****j|<**j(<*Jl<**l(<***  +  **j(<***  +  ***j(<***l(<*l(t******l(<*i<**!|<l(C**l(<!(C*S|<**!|t**!|<*!(<**y 

if(graph_error  <  0)  { 

puts(grapherronnsg(graph_error)); 

exit(l); 


MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

y+  +  *  +  **  +  *  +  ****  +  +  ****  +  ****  +  *  +  *****  +  *>f<  +  *  +  *  +  *4i  +  .|<  +  *  +  **  +  +  *****#***  +  +  *  +  +  +  +  !*y 

settext( ); 

if  ((graphmode  ==  CGAHI)  II  (graplunode  =  MCGAMED)  II  (graphmode  == 


1459 


ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graphmode  =  ATT400HI))  ( 
setfiUstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

selfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

} 


/**+****+****+**********************+**************+++*****++*+**+**++*/ 


static  void  confinn_graph_exit(void) 

I 


struct  _oukey_t  *kblist; 
char  ch; 


setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(  quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

) 

switch  (ch)  { 

case  ’y’:  closegraph(); 
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videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’;  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default  :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/***********%****%%**%%***%**************%*******%%*%*%****************/ 
/*  This  function  sets  the  text  default  values  */ 

^***>)<*  +  ****  +  ******  +  ****!(t:t<****!t<l(<*!|<********  +  **  +  ***!|t>|<**l((!|l!(<>f<!|<*!tt!(t!|<  +  !(C*!(<*:(t*ltll|<!|y 

static  void  settext(void) 

I 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


1461 


^*  *********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y**********************************************************************y 

void  Pause (ij) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<«"); 
if(waitkey(  )==ESC)  confirm_graph_exit(); 

} 

yT**********************************************************************^ 

/*  main  routine,  calls  exer  routine  */ 

void  main() 

{ 

exer(); 


y**********************************************************************^ 
/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

y/*  **********************************************************%**********/ 

static  void  exer(void) 

( 

char  Ch; 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y  ,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXERCISE  2"); 

outtextxy(5*x,2*y, "Construct  a  binary  search  tree  for  the  following  sequence  of 
names."); 
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outtextxy(5*x,3*y,"Mary,  Jack,  John,  Chris,  Natalie,  Denise,  Vanna,  Tom,  Queen, 
Tony,  Mona"); 

outtextxy(5*x.4*y,"Bill,  Jean,  Zamphir"); 
while  (in_the_exercise  ==  1 )  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  if  you  need  :"); 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,17*y,"  c)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,18*y,"  d)  This  is  enough  for  me,  1  want  to  exit.”); 
outtextxy(15*x,19*y, "Enter  your  choice  here  --->"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  V)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,19*y,"  Please  type  a,  b,  c  or  d" ); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  *b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d*))  ( 

setcolor(backcolor); 

bar(50*x,37*y/2,88*x,20*y); 

setcolor(forecolor); 


switch  (Ch)  ( 
case  ’a’:  outtextxy(47*x,19*y,"a"); 
outtextxy(52*x,19*y,"You  want  to  see  the  algorithm  "); 
outtextxy(“i2*x,20*y, "again.  Press  any  key  to  continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x.37*y/2,l  79*x/2,2 1  *y); 

bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

show_alg( ); 

break; 

case  ’b’:  outtextxy(47*x,19*y."b"); 
outtextxy(52*x,19*y."You  want  to  compare  your  solu-"); 
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outtextxy(52*x,20*y,"tion  with  ours.  So  press  any  "); 

outtextxy(52*x,21*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2, 1 79*x/2,22*y ); 

bar(2*x.l3*y,179*x/2,49*y/2); 

setcolor(forecolor); 

compare  _solut  ions( ) ; 

break; 

case  ’c’:  outtextxy(47*x,19*y,"c"); 
outtextxy(52*x,19*)  ,"You  want  to  see  step  by  step"); 
outtextxy(52*x,20*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,2 1  *y  ."continue ." ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,37*y/2,179*x/2,22*y); 

bar(2*x,  1 3*y ,  1 79*x/2,49*y/2); 

setcolor(forecolor); 

step_solution(); 

break; 

case  outtextxy(47*x,19*y,"d"); 
confinn_exit(); 
break; 

default  :  break; 


closegraphO; 

videoinit(); 
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/*  This  routine  gives  preorder  traversal  of  a  binary  tree  algorithm  */ 

/i.*********************************************************************/ 

static  void  showalg(void) 


outtextxy(15*x,5*y, "BINARY  SEARCH  TREE  CONSTRUCTION  ALGO¬ 
RITHM"); 

outtextxy(2*x,7*y,"Step  1  (start).  Construct  a  root  and  label  it  Al.  If  n  =  1,  we  are 
done;"); 

outtextxy(2*x,8*y, "otherwise,  le*  V  =  Al  and  k  =  2."); 

outtextxy(2*x,10*y,"Step  2  (if  smaller,  go  left).  If  V  <=  Al,  go  to  Step  3.  Other¬ 
wise,  we  have"); 

outtextxy(2*x.l  1  *y,"Ak  <=  V."); 

outtextxy(2*x.l2*y,"  (a)  If  V  has  no  left  child,  construct  a  left  child  L  for  V  and  la¬ 
bel  L "); 

outtextxy(2*x,13*y,"with  Ak.  If  k  =  n,  we  are  done;  otherwise,  increase  k  by  1,  set 

V  =  A 1 ,  and  "); 
outtextxy(2*x,14*y,"go  to  Step  2."); 

outtextxy(2*x,15*y,"  (b)  Otherwise,  if  V  has  a  left  child  L,  set  V  =  L,  and  go  to 
Step  2."); 

outtextxy(2*x,l7*y,"Step  3  (if  larger,  go  right).  We  have  V  <=  Ak  ."); 
outtextxy(2*x,18*y,"  (a)  If  V  has  no  right  child,  construct  a  right  child  R  for  V  and 
label  R  "); 

outtextxy  (2*x ,  1 9*y ."with  Ak.  If  k  =  n,  we  are  done;  otherwise,  increase  k  by  I ,  set 

V  =  Al,  and"); 
outtextxy(2*x.20*y,"go  to  Step  2."); 

outtextxy(2*x,2I  *y,"  (b)  Otherwise,  if  V  has  a  right  child  R,  set  V  =  R,  and  go  to 
Step  2."); 

Pause(30*x,24*y); 
setcolor(  backcolor); 
bar(2*x.9*y/2,179*x/2,49*y/2); 
setcolor(  forecolor); 


1465 


/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 

^a*********************************************************************/ 

static  void  compare_solutions(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,9*y/2.179*x/2,49*y/2); 

setcolor(forecolor); 

pieslice(40*x.5*y,0,359,2);  /*  Mary  */ 

pieslice(25*x,7*y,0,359,2);  /*  Jolin  */ 

piesliee(55*x.7*y,0,359,2);  /*  Natalie  */ 

pieslice(201'x.9*y, 0,359,2);  /*  Jack  */ 

pieslice(50*x,9*y,0, 359,2);  /*  Mona  */ 

pieslice(60*x,9*y,0,359,2);  /*  Vanna  */ 

pieslice(15*x,l  l*y,0,359,2);  /*  Chris  */ 

pieslice(25*x,l  l*y, 0,359,2);  /*  Jean  */ 

pieslice(55*x,l  l*y,0,359,2);  /*  Tom  */ 

pieslice(65*x,l  1  *y  ,0,359, 2);  /*  Zamphir  */ 

pieslice(10*x,13*y,0,359,2);  /*  Bill  */ 

pieslice(20*x.l3*y,0,359,2);  /*  Denise  */ 

pieslice(50*x,13*y, 0,359,2);  /*  Queen  */ 

pieslice(60*x,13*y,0,359,2);  /♦Tony  */ 

moveto(10*x,13*y);  lineto(15*x,l  l*y); 
lineto(20*x,9*y);  lineto(25*x,7*y); 
lineto(40*x,5*y);  lineto(55*x,7*y); 
lineto(60*x,b*y);  lineto(65*x,l  l*y); 
moveto(20*x.  1 3 *y );  lineto(  1 5  *x,  1 1  *y); 
moveto(25*x.l  l*y);  lineto(20*x,9*y); 
moveto(55*x,7*y);  lineto(50*x,9*y); 
moveto(50*x,13*y);  lineto(55*x,l  1  *y); 
lineto(60*x,9*y); 

moveto(60*x,13*y);  lineto(55*x,l  l*y); 
outtextxy(37*x,19*y/4,"Mary"); 
outtextxy(19*x,7*y,"John"); 
outtextxy(56*x,7*y, "Natalie"); 
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outtextxy(  14*x,9*y,"Jack"); 

outtextxy(47*x,19*y/2,"Mona"); 

outtextxy(61*x,9*y,"Vanna"); 

outtextxy(8*x,l  l*y, "Chris"); 

outtextxy(22*x,23*y/2,"Jean"); 

outtextxy  (50*x,  1 1  *y  ,"Tom" ); 

outtextxy(60*x,23*y/2,"Zamphir"); 

outtextxy(7*x,27*y/2,"Bill"); 

outtextxy(16*x,27*y/2, "Denise"); 

outtextxy(47*x,27*y/2, "Queen"); 

outtextxy(58*x,27*y/2,"Tony"); 

^♦♦♦i(t*J|«**j|<j(<Jt<i(cJ(t****ittl(<l(t*J(t^*^i(<********J(ll(<)t<  +  ***  +  *^*******^*******l(<***i)t****^ 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,9*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

) 


/id************ 


*********************************************************/ 


/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

^*  *********************************************** +*********************/1 


static  void  step_solution(void) 


setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,9*y/2,l79*x/2,49*y/2); 

setcolor(forecolor); 

/********************************************************************y 

pieslice(40*x,5*y,0,359,2);  /*  Mary  */ 

outtextxy(37*x,19*y/4,”Mary"); 

Pause(30*x,24*y); 
se  tcolorf  backcolor ); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

y*  *******************************************************************/ 

pieslice(25*x.7*y, 0,359,2);  /*  John  */ 
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outtextxy(19*x,7*y,"John"); 
moveto(40*x,5*y);  lineto(25*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

pieslice(20*x,9*y,0,359,2);  /*  Jack  */ 

outtextxy(  14*x,9*y,"Jack"); 
moveto(20*x,9*y);  lineto(25*x,7*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

**  *  *  **  *  *  *  3k  *  *  *  *  5f«  *  *  *  **  *  *  *  *  *  *  %  ♦  *  ♦♦  *  %  *  *  *  *  *  *  **  *  *  %  *  *  *  *  **  *  jfcsfr*  *  %  *  *  *  ******  *  *  j 

pieslice(15*x,l  l*y,0,359,2);  /*  Chris  */ 

outtextxy(8*x,l  l*y, "Chris"); 
moveto(20*x,9*y);  lineto(15*x,ll*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  aft  *  *  *  *  *  *  *  *  *  *  %  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  Iff  *  *  *  *  *  *  *  *  *  *  aft  *  *  *  *  *  %  *  *  *y 


pieslice(55*x,7*y,0,359,2);  /*  Natalie  */ 

outtextxy(56*x  ,7*y /’Natalie" ); 

moveto(40*x,5*y);  lineto(55*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(20*x,13*y,0,359,2);  /*  Denise  */ 

outtextxy(  17*x,27*y/2, "Denise"); 
nioveto(20*x,13*y);  lineto(15*x,l  l*y); 
Pause(30*x,24*y); 
setcolor(  backcoloi ); 
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bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/♦ifc******************************#*****#*****************#**#********^ 

pieslice(60*x,9*y,0,359,2);  /*  Vanna  */ 

outtextxy(6 1  *x,9*y,"  Vanna" ); 
moveto(60*x,9*y);  lineto(55*x,7*y); 

Pause(30*x,24*y); 
se  tcolor(backc  olor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(forecolor); 

pieslice(55*x,ll*y,0,359,2);  /*  Tom  */ 

outtextxy(50*x,ll*y,"Tom"); 
moveto(60*x,9*y);  lineto(55*x,l  l*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(50*x,13*y,0,359,2);  /*  Queen  */ 

outtextxy(47*x,27*y/2, "Queen"); 

moveto(50*x,l3*y);  lineto(55*x,l l*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(60*x,13*y, 0,359,2);  /*  Tony  */ 

outtextxy(58*x,27*y/2,"Tony"); 

moveto(60*x,13*y);  lineto(55*x,l  l*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setco)or(  forecolor); 


pieslice(50*x.9*y  ,0,359,2);  /*  Mona  */ 
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outtextxy(47*x,  1 9*y/2,"Mona" ); 
moveto(50*x,9*y);  lineto(55*x,7*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^*  ****************************************************************♦*= <fj 

pieslice(10*x,13*y,0,359,2);  /*  Bill  */ 

outtextxy(7*x,27*y/2,"Bill"); 

nioveto(  1 0*x ,  1 3  *y );  lineto(  1 5 *x,  1 1  *y ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

pieslice(25*x,ll*y,0,359,2);  /*  Jean  */ 

outtextxy(22*x  ,23  *y/2,"  Jean" ) ; 
moveto(20*x,9*y);  lineto(25*x,l  l*y); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

pieslice(65*x,l  l*y,0,359,2);  /*  Zamphir  */ 

outtextxy(60*x,23*y/2, "Zamphir"); 
moveto(60*x ,9*y );  lineto(65 *x,  1 1  *y ); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor); 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,9*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

1 
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H i*********************************************************************/ 

static  void  confirm_exit(void) 

I 

char  ch; 

outtextxy(52*x,19*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,20*y,"Are  you  sure  ?  "); 
outtextxy(52*x,21*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  =  V)  II  (ch  =  ’Y*)  II  (ch  =  ’N’)))  { 
outtextxy(53*x,23*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  y)  II  (ch  ==  ’n’>  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

) 

switch  (ch)  ( 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,37*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q463.c 

:  Atilla  BAKAN 
:  Apr.  4,  1990 
:  Apr.  18, 1990 


DESCRIPTION  :  This  program  contains  the  third  exercise  about  the  binary 
search  trees. 


MACHINE/COMPELER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 


*/ 


C  compiler  Version  2.0. 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined  (_TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _G  RAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


/***^*****************************************************************/ 
/*  miscellaneous  global  variables  */ 

/I**********************************************************************/ 

int  in_the_exercise  =  1 ; 


/****************************************************; (s*****************y 

/*  graphic  initialization  variables  */ 

^*******************#***************************jtt**********************y 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph _error; 

int  backcolor, 

int  forecoiv.r; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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^* *********************************************************************/ 
/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/**********************************************************************/ 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

} 


/**********************************************************************/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

^***4******************************************************************/ 

static  void  init_graph(void) 


int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/********************************************************************/ 


initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresult(); 

^^fc^**************************************************************/ 


if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(I); 

} 


MaxX  =  getmaxxO; 
MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 


settext(); 

/********************************************************************/ 
if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 


1474 


ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLED_  FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 

} 

/***********************************  ^:  **********************************/ 
static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor) ; 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraphf); 
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videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 

bar(31*x,23*y,69*x,97*y/4); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

} 

hidecur(); 

if(_mouse&MS_CURS)  msshowcurO; 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

/**********************************************************************/ 
static  void  settext(void) 

{ 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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y*  **************£******************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i,j) 
inti.j; 

l 

settext(); 

outtextxy(ij,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 


/*******************************************************************  +  *:*y 

/*  main  routine,  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 

{ 

exer(); 

} 


/**********************************************************************y 

/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

*********************************************************************/ 
static  void  exer(void) 

{ 

char  Ch; 


init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  3"); 

outtextxy(20*x,2*y,”Consider  the  following  binary  tree."); 

pieslice(40*x,3*y,0,359,2); 
pieslice(35*x,5*y, 0,359,2); 


1477 


pieslice(45*x,5*y,0,359,2); 
pieslice(30*x,7*y,0,359,2); 
pieslice(38*x,7*y, 0,359,2); 
pieslice(50*x,7*y,0,359,2); 
pieslice(25*x,9*y,0,359,2); 
pieslice(35*x,9*y,0,359,2); 
pieslice(42*x,9*y,0,359,2); 
pieslice(46*x,9*y,0, 359,2); 
pieslice(55*x,9*y, 0,359,2); 
pieslice(20*x,l  l*y, 0,359,2); 
pieslice(30*x,l  l*y, 0,359,2); 
pieslice(38*x,l  l*y,0, 359,2); 
pieslice(42*x,l  l*y, 0,359,2); 
pieslice(50*x,l  l*y, 0,359,2); 
pieslice(60*x,l  l*y,0,359,2); 
moveto(20*x,l  l*y);  lineto(25*x,9*y); 
lineto(30*x,7*y);  lineto(35*x,5*y); 
lineto(40*x,3*y);  lineto(45*x,5*y); 
lineto(50*x,7*y);  lineto(55*x,9*y); 
lineto(60*x,l  l*y); 

moveto(30*x,l  l*y);  lineto(35*x,9*y); 
lineto(38*x,7*y);  lineto(42*x,9*y); 
lineto(38*x,l  l*y); 

moveto(35*x,5*y);  lineto(38*x,7*y); 
moveto(42*x,l  l*y);  lineto(46*x,9*y); 
lineto(50*x,l  l*y); 

moveto(46*x,9*y);  lineto(50*x,7*y); 

outtextxy(41*x,3*y,"N"); 

outtextxy(33*x,5*y,"F"); 

outtextxy(46*x,5*y,"0"); 

outtextxy(28*x,7*y,"D"); 

outtextxy(39*x,7*y,"J"); 

outtextxy(5 1  *x,7*y,'T'); 

outtextxy(23*x,9*y,"B"); 

outtextxy(33*x,9*y,T'); 

outtextxy(43*x,9*y,"L"); 
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outtextxy(47*x,9*y,"Q"); 

outtextxy(56*x,9*y,"U"); 

outtextxy(20*x,23*y/2,"A"); 

outtextxy(30*x,23*y/2,"G"); 

outtextxy(38*x,23*y/2,"K"); 

outtextxy(42*x,23*y/2,"P"); 

outtextxy(50*x,23*y/2,"S"); 

outtextxy(60*x,23*y/2,"V"); 

/********************************************************************/ 
outtextxy(18*x,13*y, "Which  one  of  the  following  statements  is  false  ?"); 
outtextxy(20*x,15*y,"a)  Search  pattern  for  C  is  ’N,  F,  D,  B,  Item  not  found’."); 
outtextxy(20*x,16*y,"b)  Search  pattern  for  Q  is  ’N,  O,  T,  Q,  Item  found’."); 
outtextxy(20*x,17*y,"c)  M  would  be  added  to  the  list  as  right  child  of  K."); 
outtextxy(20*x,18*y,"d)  R  would  be  added  to  the  list  as  left  child  of  S ."); 
outtextxy(18*x,20*y, "Enter  your  choice  here 
Ch  =  getch  (); 

if(Ch— ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,20*y,"  Please  type  a,b,c,  or  d"\ 

Ch  =  getch  (); 

if(Ch==ESC)  conFirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)) 

setcolor(backcolor); 

bar(50*x.l9*y,88*x,21*y); 

setcolor(forecolor); 

) 

switch  (Ch)  { 

case  ’a’:  outtextxy(50*x,20*y,"a"); 

outtextxy(55*x,20*y,"No,  the  statement  is  true!"); 
outtextxy(55*x.21  *y,"If  C  were  in  the  tree,  it"); 
outtextxy(55*x,22*y, "would  be  B’s  right  child."); 
outtextxy(55*x,23*y,"As  you  see,  this  not  the  case."); 
outtextxy(55*x,24*y,"The  answer  is  ’c’."); 
break; 

case  ’b’:  outtextxy(50*x,20*y,"b"); 

outtextxy(55*x,20*y,"No,  the  statement  is  true!"); 
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outtextxy(55*x,21*y,"Q  is  in  the  tree  and  since"); 
outtextxy(55*x,22*y,"Q>N,  Q>0,  Q<T,  and  Q=Q  the"); 
outtextxy(55*x,23*y, "search  pattern  is  correct."); 
outtextxy(55*x,24*y,"The  answer  is  ’c’."); 
break; 

case  ’c’:  outtextxy(50*x,20*y,"c"); 

outtextxy(55*x,20*y,"You  are  right.  Congratulations"); 
break; 

case ’d’:  outtextxy(50*x,20*y,"d"); 

outtextxy(55*x,20*y,"No,  the  statement  is  true!"); 
outtextxy(55*x,21*y,"Because,  R>N,  Rj^,  R<T,  R>Q"); 
outtextxy(55*x,22*y,"and  R<S. "); 
outtextxy(55*x,23*y,"The  answer  is  ’c’."); 
break; 

default  :  break; 

} 

Pause(15*x,24*y); 

closegraph(); 

videoinitQ; 
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/*  PROGRAM  :  q464.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  8,  1990 
REVISED  :  Apr.  18,  1990 


DESCRIPTION  :  This  program  contains  the  fourth  exercise  about  the 
binary  search  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


I*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.li>  /*  all  others  */ 

#endif 

#if  defined! M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  fir.dj 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 

#define  ff_attrib  attribute 

#endif 
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#defiiie  GRAPH_T_DEFINED 


/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 


t *  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 


/*  graphic  initialization  variables  */ 

y****************************************#*****************************^ 

int  currjnode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/*************  I*********************************************************/ 


static  void  register_drivers(void) 

I 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 


/*  This  friction  initializes  the  necessary  graphical  routines  */ 

^Ilc*********************************************************************^ 

static  void  init_graph(void) 

I 

int  xasp,  yasp; 

register_drivers( ); 
graphdriver  =  DETECT ; 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresultQ; 

/i********************************************************************/ 

if(graph_error  <  0)( 

puts(grapherronnsg(graph_error)); 

exit(l); 

) 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

settext(); 

if  ((graplunode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graplimode  = 
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ATT400MED)  II  (graphmode  =  MCGAHI)  II  (graplunode  ==  ATT400H1))  { 
setfiilstyle(SOLiD_FILL, BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecolor  =  WHITE; 

) 

/*  **+******+*********+***************************+*+******+************/ 
static  void  confirrn__graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  V)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)»  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  =  ’N’)) 

setcolor(backcolor); 

bar(31  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  ’y’:  closegraphQ; 
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videoinit(); 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y  ,69*x,97*y/4); 

setcolor(  forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecurQ; 

if(  mouse&MS  CURS)  msshowcur(); 

chgoukey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


/*  This  function  sets  the  text  default  values  */ 

/**************************************+**********+***********++*+***+*/ 
static  void  settext(void) 

I 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settext ju  st  ify  ( H  ORlZ_DIR  ,CENTER_TEXT) ; 

I 
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/**********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  grapliics  screen  */ 

/**********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 

I 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  confum_graph_exit(); 

} 


y*  ************ ****************************************************** ***/ 

/*  main  routine,  calls  exer  routine  */ 

^**********************************************************************y 

void  main() 


exer(); 

) 


r 


********************************************************************** 


7 


7 


/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer 
/*  makes  necessary  explanations  */ 

^* ********************************************************* ************^ 
static  void  exer(void) 


{ 

char  Ch; 


init_graph(); 
setcolor(  forecolor); 
bar(0,0JMaxX.MaxY); 
rectangle(x,y  ,MaxX-x,MaxY  -y/2); 
outtextxy(38*x,y/2, "EXERCISE  4"); 

j* ********************************* ******************************** **y 

pieslice(10*x,5*y  ,0,359,2);  /*  a  */ 

pieslice(7*x,7*y,0,359,2); 

pieslice(  1 3  *x.7*y  ,0,359,2); 
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pieslice(3*x,9*y,0,359,2); 
pieslice(17*x,9*y, 0,359,2); 
pieslice(7*x,l  l*y,0,359,2); 
pieslice(  1 3  *x ,  1 1  *y  ,0,3  59,2); 
moveto(13*x,l l*y);  lineto(17*x,9*y); 
lineto(13*x,7*y);  lineto(10*x,5*y); 
lineto(7*x,7*y);  lineto(3*x,9*y); 
lineto(7*x,l  l*y); 
outtextxy(10*x,9*y/2,"A"); 
outtextxy(5*x,7*y,"B"); 
outtextxy(14*x,7*y,"C"); 
outtextxy(3*x/2,9*y,"D"); 
outtextxy(18*x,9*y,"E”); 
outtextxy(7*x,23*y/2,"F"); 
outtextxy(  1 3  *x,23  *y/2,"G"); 
outtextxy(10*x,13*y,"(a)"); 

/+***  ******  ****************** ***************************** *+*********/ 
pieslice(24*x,5*y,0,359,2);  /*  b  */ 

pieslice(26*x,6*y,0,359,2); 
pieslice(28*x,7*y, 0,359,2); 
pieslice(30*x,8*y,0,359,2); 
pieslice(32*x,9*y,0,359,2); 
pieslice(34*x,10*y,0,359,2); 
pieslice(36*x,l  l*y,0,359,2); 
moveto(24*x,5*y);  lineto(26*x,6*y); 
lineto(28*x,7*y);  lineto(30*x,8*y); 
lineto(32*x,9*y);  lineto(34*x,10*y); 
lineto(36*x,l  l*y); 
outtextxy(25  *x  ,5  *y,"  A"); 
outtextxy(27*x,6*y,"B"); 
outtextxy(29*x,7*y,"C"); 
outtextxy(3 1  *x,8*y,"D"); 
outtextxy(33*x,9*y,"E"); 
outtextxy(35*x,10*y,"F"); 
outtextxy(37*x,l  l*y,"G"); 
outtextxy(30*x,13*y,"(b)"); 
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pieslice(44*x,  1 1  *y, 0,359, 2);  /*  c  */ 

pieslice(46*x,10*y,0,359,2); 
pieslice(48*x,9*y,0,359,2); 
pieslice(50*x,8*y  ,0,359,2); 
pieslice(52*x,7*y,0,359,2); 
piesLice(54*x,6*y  ,0,359,2); 
pieslice(56*x,5*y,0,359,2); 
inoveto(44*x,l  l*y);  lineto(46*x,10*y); 
Iineto(48*x,9*y);  lineto(50*x,8*y); 
lineto(52*x,7*y);  lineto(54*x,6*y); 
liiieto(56*x,5*y); 
outtextxy(42*x,l  1  *y,"7"); 
outtextxy(44*x,10*y,"6"); 


outtextxy(46*x,9*y,"5"); 
outtextxy(48*x,8*y,"4"); 
outtextxy(50*x,7*y,"3"); 
outtextxy(52*x,6*y,"2"); 
outtextxy(54*x,5*y ,"  1 "); 
outtextxy(50*x ,  1  3  *y  ,”(c)" ); 

pieslice(64*x,7*y,0,359,2);  /*  d  */ 

pieslice(68*x,5*y,0,359,2) 
pieslice(72*x,7*y, 0,359,2) 
pieslice(68*x,9*y,0,359,2) 
pieslice(76*x,9*y,0,359,2) 
pieslice(72*x.l  l*y, 0,359,2); 
pieslice(80*x,l  l*y  ,0,359,2); 
moveto(64*x,7*y);  lineto(68*x,5*y); 
Iineto(72*x,7*y);  Iineto(76*x,9J<y); 
lineto(80*x,l  l*y); 

moveto(72*x,7*y);  lineto(68*x,9*y); 
moveto(76*x,9*y);  lineto(72*x,  1 1  *y); 
outtextxy(68  *x,9*y/2,"  2"); 
outtextxy(62*x,7*y,”l”); 
outtextxy(73*x,7*y,"3 '); 
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outtextxy(66*x,9*y,"4"); 

outtextxy(77*x,9*y,"6"); 

outtextxy(72*x,23*y/2,"5"); 

outtextxy(80*x,23*y/2,"7"); 

outtextxy(70*x,13*y,"(d)"); 

/jf*******************************************************************/ 

outtextxy(10*x,2*y,"  Which  one  of  the  following  graphs  is  a  binary  search  tree  ?"); 
outtextxy(10*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch=ESC)  confinn_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  =  ’b’)  II  (Ch  =  ’c’)  II  (Ch  ==  ’d’)))  ( 
outtextxy(48*x,18*y,"  Please  type  a,b,c,  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(V 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  =  ’c’)  II  (Ch  =  ’d’)) 

setcolor(backcolor); 

bar(50*x,17*y,88*x,19*y); 

setcolor(forecolor); 


switch  (Ch)  ( 
case  ’a’:  outtextxy(42*x,18*y,"a"); 

outtextxy(47*x,18*y,"No.  Tliis  is  not  a  binary  search"); 
outtextxy(47*x,19*y,"tree,  because  the  order  of  the"); 
outtextxy(47*x,20*y, "elements  is  not  proper.For  example"); 
outtextxy(47*x,21*y,"take  B,  since  B>A,  it  must  be  on  the"); 
outtextxy(47*x,22*y, "right  subtree  of  the  root  A.  There"); 
outtextxy(47*x,23*y,"are  other  examples,  as  well."); 
outtextxy(47*x,24*y,"The  answer  is  ’b’"); 

Pause(8*x,24*y); 

break; 

case  ’b’:  outtextxy(42*x,18*y,"b"); 

outtextxy(47*x,18*y, "That’s  right!  Congratulations"); 

Pause(30*x,24*y); 

break; 

case  ’c’:  outtextxy(42*x,18*y,"c"); 

outtextxy(47*x,18*y,"No.  Tliis  is  not  a  binary  search"); 
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outtextxy(47*x,19*y,"tree,  because  the  order  of  the"); 
outtextxy(47*x,20*y, "elements  is  not  proper.  Everything"); 
outtextxy(47*x,21*y,"on  the  left  subtree  of  1  supposed"); 
ouiteAixy(47*x,22J  j,"to  be  on  its  right  subtree  since"); 
outtextxy(47*x,23*y,"l  is  less  than  all  of  them."); 
outtextxy(47*x,24*y,"The  answer  is  ’b’"); 
Pause(8*x,24*y); 
break; 

case ’d’:  outtextxy(42*x,18*y,"d"); 

outtextxy(47*x,18*y,"No.  This  is  not  a  binary  search"); 
outtextxy(47*x,19*y,"tree,  because  the  order  of  the"); 
outtextxy(47*x,20*y, "elements  is  not  proper.  Because"); 
outtextxy(47*x, 21  *y, "since  4>3,  it  must  be  on  the"); 
outtextxy(47*x,22*y, "right  subtree  of  the  vertex  3."); 
outtextxy(47*x,23*y,"The  answer  is  ’b’"); 
Pauset30i'x,24*y); 
break, 

default  :  break; 

) 

closegraph(); 

videoinit(); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q465.c 

:  Atilla  BAKAN 
:  Apr.  8,  1990 
:  Apr.  18,  1990 


DESCRIPTION  :  This  program  contains  the  fifth  exercise  about  the 
binary  search  trees. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 
include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined!  _TURBOC  _)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zonech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  inii_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 
static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  show_alg  (void); 
static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  eonfirm_exit  (void); 


/**********************************************************************y 

/*  miscellaneous  global  variables  */ 

/**********************************************************************/ 
int  in_the_exercise  =  1; 


/**********************************************************************/ 

/*  graphic  initialization  variables  */ 

/**********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/ 


********************************************************************* 


*/ 


/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y*********************j(c*********************^^c*************************y 

static  void  register_diivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 


*********************************************************************/ 


/* 

/*  This  fuction  initializes  the  necessary  graphical  routines 
/* 


*/ 


static  void  init_graph(void) 


int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 

if(graph_error  <  0)  { 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

jib  ^**%%*^%^%%%%*************************^**%******>lc>k*****************^ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 

^*  *******************************************************************/ 
settext(); 

y********************************************************************^ 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  =  ATT400HI))  { 
setfiUstyle(SOLID_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  -  WHITE; 


} 


/*****  3jc  ijc  Jf:  Jf:  Jf:  4:  3|C  ******************  ***********  *  *  ***  ****  ***********  *  j 

static  void  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 


setcolor(backcolor); 


bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  H  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  *N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 


} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
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videoinit(); 

exit(O); 

break; 

case  ’Y’:  closegraph(); 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31*x,23*y,69*x,97*y/4); 
se  tcolor(forecolor) ; 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 

} 


/**********************************************************************/ 
/*  This  function  sets  the  text  default  values  */ 

y*******************************************+**************************y 

static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 
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/**********************************************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/**********************************************************************/ 


void  Pause(i,j) 
int  i,  j; 


{ 

settext(); 

outtextxy(ij,">»PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

) 


/**********************************************************************/ 
/*  main  routine,  calls  exer  routine  */ 

/**********************************************************************/ 
void  main() 

{ 

exer(); 

} 


/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

/***£*£*****£********************%*$********************************** 


static  void  exer(void) 

{ 


char  Ch; 


init_graph(); 
se  tcoior(forecolor) ; 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,Max  Y -y/2); 
outtextxy(38*x,y/2, "EXERCISE  5"); 


outtextxy(2*x,2*y,"Give  sorted  list  of  the  following  sequence  of  names  by  using  bi¬ 
nary  search"); 
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J. 


outtextxy(2*x,3*y,"tree  approach  :  Natalie,  Jack,  John,  Vanna,  Mary,  Zamphir, 
Chris,  Denise,"); 

outtextxy(2*x,4*y,"  Tony,  Quincy,  Tom,  Bill,  Jean,  Mona"); 


/********************************************************************/ 


while  (in_the_exercise  ==  1)  { 

outtextxy(15*x,14*y,"Choose  one  of  the  following,  if  you  need  :"); 
outtextxy(15*x,15*y,"  a)  I  want  to  see  the  algorithm  again."); 
outtextxy(15*x,16*y,"  b)  I  want  to  see  the  solution."); 
outtextxy(15*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)))  { 
outtextxy(48*x,18*y,"  Please  type  a,  b,  or  c"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 
if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’))  { 
setcolor(backcolor); 
bar(50*x,35*y/2,88*x,20*y); 
setcolor(forecolor); 


} 

switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,18*y,"You  want  to  see  the  algorithm  "); 
outtextxy(52*x,19*y, "again.  Press  any  key  to  continue."); 
Pause(30*x,24*y); 
setcolor(backcolor); 
bar(50*x,35*y/2,179*x/2,2 1  *y); 
bar(2*x,13*y,179*x/2,49*y/2); 

setcolor(forecolor); 

show_alg(); 

break; 

case  V:  outtextxy(47*x,18*y,"b"); 
outtextxy(52*x,18*y,"You  want  to  see  the  solution."); 
outtextxy(52*x,19*y, "Press  any  key  to  continue."); 
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Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

bar(2*x,  1 3*y,  179*x/2,49*y/2); 

setcolor(forecolor); 

step_solurion(); 

break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 
confirm_exit(); 
break; 

default  :  break; 

} 

} 

closegraph(); 

videoinitO; 

} 


/**********************************************************************/ 
/*  This  routine  gives  preorder  traversal  of  a  binary  tree  algorithm  */ 

/*  ******************************************************************* **^ 


static  void  show_alg(void) 

{ 

outtextxy(2*x,5*y,"l.  Apply  the  following  (BFS)  algorithm  to  construct  binary 
search  tree."); 

outtextxy(3*x,6*y,"Step  1  (start).  Construct  a  root  and  label  it  Al.  If  n  =  1,  we  are 
done;"); 

outtextxy(3*x,7*y, "otherwise,  let  V  =  Al  and  k  =  2."); 

outtextxy(3*x,8*y,"Step  2  (if  smaller,  go  left).  If  V  <=  Al,  go  to  Step  3.  Other¬ 
wise,  we  have"); 

outtextxy(3*x,9*y,"Ak  <=  V."); 

outtextxy(3*x,10*y,"  (a)  If  V  has  no  left  child,  construct  a  left  child  L  for  V  and  la¬ 
bel  L  "); 

outtextxy(3*x,l  l*y,"with  Ak.  If  k  =  n,  we  are  done;  otherwise,  increase  k  by  1,  set 
V  =  A 1 ,  and  "); 

outtextxy(3*x,12*y,"go  to  Step  2."); 
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outtextxy(3*x,13*y,"  (b)  Otherwise,  if  V  has  a  left  child  L,  set  V  =  L,  and  go  to 
Step  2."); 

outtextxy(3*x,14*y,"Step  3  (if  larger,  go  right).  We  have  V  <=  Ak 
outtextxy(3*x,15*y,"  (a)  If  V  has  no  right  child,  construct  a  right  child  R  for  V  and 
label  R  "); 

outtextxy(3*x,16*y,"with  Ak.  If  k  =  n,  we  are  done;  otherwise,  increase  k  by  1,  set 
V  =  Al,  and"); 
outtextxy(3*x,17*y,"go  to  Step  2."); 

outtextxy(3*x,18*y,"  (b)  Otherwise,  if  V  has  a  right  child  R,  set  V  =  R,  and  go  to 
Step  2."); 

outtextxy(2*x,20*y,"2.  Apply  following  (inorder  traversal)  algorithm  to  get  the 
sorted  list."); 

outtextxy(3*x,21*y,"Step  1  Go  to  the  left  subtree,  if  one  exists,  do  a  preorder  tra¬ 
versal"); 

outtextxy(3*x,22*y,"Step  2  Visit  the  root."); 

outtextxy(3*x,23*y,"Step  3  Go  to  the  right  subtree,  if  one  exists,  and  do  a  preorder 
traversal."); 

Pause(30*x,24*y); 
se  tcolor(  backcolor) ; 
bar(2*x,9*y/2,179*x/2,49*y/2); 
setcolor(forecolor); 
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y* *************************************************** ******************/ 

/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

/**********************************************************************/ 
static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,9*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

I******  **************************************************************/ 

pieslice(40*x,5*y  ,0,359,2);  /*  Natalie  */ 

outtextxy(36*x,19*y/4,"Natalie"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^*** C*****************************************************************^ 


pieslice(25*x,7*y,0, 359,2);  /*  Jack  */ 

moveto(40*x,5*y);  lineto(25*x,7*y); 

outtextxy(19*x,7*y,"Jack"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

se  tcolor(  forecolor); 


pieslice(30*x,9*y,0,359,2);  /*  John  */ 

moveto(25*x,7*y);  lineto(30*x,9*y); 

outtextxy(3 1  *x,9*y,"John' ); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor) ; 


^* ********************************** *********************************/ 


pieslice(55*x,7*y,0,359,2);  /*  Vanna  */ 

moveto(40*x,5*y);  lineto(55*x,7*y); 
outtextxy(56*x,7*y,"Vanna"); 
Pause(30*x,24*y); 
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se  tcolor(  backcolor) ; 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(35*x,l  l*y,0,359,2);  /*  Mary  */ 

moveto(30*x,9*y);  lineto(35*x,  1 1  *y); 

outtextxy(36*x,l  l*y,"Mary"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(60*x,9*y,0,359,2);  /*  Zamphir  */ 

moveto(55*x,7*y);  lineto(60*x,9*y); 

outtextxy(56*x,19*y/2, "Zamphir"): 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(15*x,9*y, 0,359,2);  /*  Chris  */ 

moveto(25*x,7*y);  lineto(15*x,9*y); 

outtextxy(9*x,9*y, "Chris"); 

Pause(30*x,24*y); 

se  tcolor(  backcolor) ; 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


pieslice(20*x,l l*y,0,359,2);  /*  Denise  */ 

moveto(20*x,l  l*y);  lineto(15*x,9*y); 
outtextxy(15*x,23*y/2, "Denise”); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

^*********:(c************  +  *i|c*******************>|cj|c**s|c:)c:(c>|c****j|c>|c*)|c********/ 
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pieslice(50*x,9*y,0, 359,2);  /*  Tony  */ 

moveto(55*x,7*y);  lineto(50*x,9*y); 
outtextxy(51*x,9*y,"Tony"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

y* *******************************************************************/ 


pieslice(45*x,l  I  *y, 0,359,2);  /*  Quincy  */ 

moveto(45*x,l  l*y);  lineto(50*x,9*y); 
outtextxy(46*x,l  l*y,"Quincy"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
se  tcolor(forecolor) ; 

/*************************¥******************************************/ 


pieslice(50*x,13*y, 0,359,2);  /*  Tom  */ 

moveto(45*x,l  l*y);  lineto(50*x,13*y); 
outtextxy(48*xi27*y,/2,"Tom"); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
setcolor(  forecolor) ; 

/********************************************************************y 


pieslice(10*x,ll*y,0,359,2);  /*  Bill  */ 

moveto(10*x,l  l*y);  lineto(15*x,9*y); 

outtextxy(8*x,23*y/2,"BiH"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 


/********************************************************************/ 


pieslice(25*x,l  l*y, 0,359,2);  /*  Jean  */ 

moveto(25*x,l  l*y);  lineto(30*x,9*y); 
outtextxy(24*x,23*y/2,"Jean"); 
Pause(30*x,24*y); 
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setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/ft*******************************************************************/ 

pieslice(40*x,13*y,0,359,2);  /*  Mona  */ 

moveto(40*x,13*y);  lineto(35*x,l  l*y); 
outtextxy(37*x,27*y/2,"Mona"); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

setcolor(forecolor); 

/********************************************************************/ 
outtextxy(7*x,14*y,"We  now  will  apply  inorder  traversal  to  obtain  the  sorted 

list:"); 

outtextxy(30*x,31*y/2, "Inorder  Listing  (Sorted  listing)"); 
moveto(2*x,  1 6*y);  lineto(89*x,  1 6*y); 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x.49*y/2); 
se  tcolor(forecolor) ; 

^Jlc*******************************************************************/ 

outtextxy(3*x,17*y,"Bill,");  /*  Visit  Bill  */ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
moveto(10*x,l  l*y);  lineto(15*x,9*y); 
setlinestyle(3,0,3); 
se  tcolor(forecolor) ; 

moveto(10*x,l  l*y);  lineto(15*x,9*y); 
setlinestyle(0,0,3); 

/********************************************************************/ 
outtextxy(9*x,17*y,"Chris,");  /*  Visit  Chris  */ 

Pause(30*x,24*y); 
setcolor(  backcolor) ; 
bar(29*x,23*y,50*x,49*y/2); 
moveto(20*x,l  l*y);  lineto(15*x,9*y); 


1503 


setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(20*x,l  l*y);  lineto(15*x,9*y); 
setlinestyle(0,0,3); 

/********************************************************************/ 
outtextxy(16*x,17*y,"Denise,");  /*  Visit  Denise  */ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
moveto(25*x,7*y);  lineto(15*x,9*y); 
setlinestyle(3,0,3); 

setcolor(forecolor); 
moveto(25*x,7*y);  lineto(15*x,9*y); 
setlinestyle(0,0,3); 

^***j(t**>(t**j|cj(cj(c>|t>ic***j(!*l(t***j(e****************i|t********************j|cj|c*!(t***^ 

outtextxy(24*x,17*y,"Jack,");  /*  Visit  Jack  */ 

P»use(3Q*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

moveto(25*x,7*y);  lineto(30*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(25*x,7*y);  lineto(30*x,9*y); 

setlinestyle(0,0,3); 

outtextxy(30*x,17*y,"Jean,");  /*  Visit  Jean  */ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
moveto(25*x,l  l*y);  lineto(30*x,9’ty); 
setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(25*x,l  l*y);  lineto(30*x,9*y); 
setlinestyle(0,0,3); 

/♦I*******************************************************************/ 

outtextxy(36*x,17*y,"John,");  /*  Visit  John  */ 
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Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

moveto(35*x,l  l*y);  lineto(30*x,9*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(35*x,l  l*y);  lineto(30*x,9*y); 
setiinestyle(0,0,3); 

/********************************************************************/ 
outtextxy(42*x,17*y,"Mary,");  /*  Visit  Mary  */ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
moveto(35*x,l  1  *y);  lineto(40*x,  1 3*y); 
setlinestyle(3,0,3); 

se  tcolor(forecolor) ; 

moveto(35*x,l  l*y);  lineto(40*x,13*y); 
setlinestyle(0,0,3); 

y*********************************************^^  ;;:*******************/ 

outtextxy(48*x,17*y,"Mona,");  /*  Visit  Mona  */ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
moveto(25*x,7*y);  lineto(40*x,5*y); 
setlinestyle(3,0,3); 
se  tcolor(  forecolor) ; 
moveto(25*x,7*y);  lineto(40*x,5*y); 
setlinestyle(0,0,3); 

y********************************************************************/ 

outtextxy(54*x,17*y,"Quincy");  /*  Visit  Quincy  */ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

moveto(45*x,l  l*y);  lineto(50*x,13*y); 

setlinestyle(3,0,3); 

setcolor(forecolor); 
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moveto(45*x,l  l*y);  lineto(50*x,13*y); 
setlinestyle(0,0,3); 


/************************* *********  ********************************** f 


outtextxy(62*x,17*y,"Tom");  /*  Visit  Tom  */ 

Pause(30*x,24*y); 
setcolor(backcolor); 
bar(29*x,23*y,50*x,49*y/2); 
moveto(45*x,l  l*y);  lineto(50*x,9*y); 
setlinestyle(3,0,3); 

setcolor(forecolor); 

moveto(45*x,l  l*y);  lineto(50*x,9*y); 
setlinestyle(0,0,3); 

^************i|<***********************i|i***i|c**l|c!|c!|c***)(c*******Jtc***:)c*****:iy 


outtextxy(67*x,17*y,"Tony");  /*  Visit  Tony  */ 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(29*x,23*y,50*x,49*y/2); 

moveto(55*x,7*y);  lineto(50*x,9*y); 

setlinestyle(3,0,3); 

se  tcolor(  forecolor) ; 

moveto(55*x,7*y);  lineto(50*x,9*y); 

setlinestyle(0,0,3); 


outtextxy(73*x,17*y,"Vanna");  /*  Visit  Vanna  */ 

Pause(30*x,24*y); 
se  tcolor(  backcolor ) ; 
bar(29*x,23*y,50*x,49*y/2); 
moveto(5  5  *  x  ,7  *  y ) ;  1  ine  to(60  *  x  ,9  *  y ); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(55*x,7*y);  lineto(60*x,9*y); 
setlinestyle(0,0,3); 

/********************************************************************/ 


outtextxy(81*x,17*y,"Zamphir");  /*  Visit  Zamphir  */ 

Pause(30*x,24*y); 

setcolor(backcolor); 
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bar(29*x,23*y,50*x,49*y/2); 
moveto(55*x,7*y);  lineto(40*x,5*y); 
setlinestyle(3,0,3); 
setcolor(forecolor); 
moveto(55*x,7*y);  lineto(40*x,5*y); 
setlinestyle(0,0,3); 

y* *********************************************************** ********y 


Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,17*y/4,179*x/2,49*y/2); 

se  tcolor(  forecolor) ; 

} 


y* ******************************************************************** 

static  void  confirm_exit(void) 

{ 

char  ch; 


outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,19*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,22*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,22*y,179*x/2,49*y/2); 
setcolor(forecolor); 

} 

switch  (ch)  ( 
case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 
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case  ’n’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(4o*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 


} 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  lang.c 

:  Atilla  BAKAN 
:  Mar.  17,  1990 
:  Apr.  7,  1990 


DESCRIPTION  :  This  program  contains  the  tutorial  for  an  application 
of  trees,  namely  language  syntax. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <process.h> 
#include  "cxldef.h" 
#include  "cxlkey.h" 
#include  "cxlmou.h" 
#include  "cxlstr.h" 
#include  "cxlvid.h" 
#include  "cxlwin.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 


#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_iuune  name 


1509 


#define  ff_attrib  attribute 
#endif 

#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 

static  void  add_shadow  (void); 

static  void  confinn_quit  (void); 

static  void  disp_sure_msg  (void); 

static  void  error_exit  (int  ermum); 

static  void  initialize  (void); 

static  void  move_window  (int  nsrow,  int  scol); 

static  void  nonnal_exit  (void); 

static  void  Pageup  (void); 

static  void  Pagedown  (void); 

static  void  press_a_key  (int  wrow); 

static  void  pre_help  (void); 

static  void  quit_window  (void); 

static  void  restoie_cursor(void); 

static  void  short_delay  (void); 

static  void  size_window  (int  nerow,int  necol); 

/*  Tutorial  procedures  */ 

static  void  language  (void); 
static  void  ex_lang_l  (void); 
static  void  grammar  (void); 
static  void  backus  (void); 
static  void  ex_lang_2  (void); 
static  void  exercises  (void); 
static  void  exei  1  (void); 

static  void  exer2  (void); 

static  void  exer3  (void); 

static  void  final_cut  (void); 
static  void  PI  (void); 
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static  void  P2  (void); 

static  void  P3  (void); 

static  void  P4  (void); 

static  void  P5  (void); 

static  void  P6  (void); 

static  void  P7  (void); 

static  void  P8  (void); 

static  void  P9  (void); 

static  void  P10  (void); 


j*  %  *  if  *  *  *  *  *  *  *  *  *  *  *  *  *  *  i|<  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  *  *  *  >(i  *  *  *  *  *  *  *  *  **  *  *  #  *  *  *  *  *  *  ♦  *  #  *  *  *  *j 

/*  miscellaneous  global  variables  */ 

static  int  *savescm,crow,ccol; 
static  WINDOW  wllOJ; 
static  char  ssan[10J; 


/*  error  message  table  */ 


static  char  *errorjext[]=  { 

NULL,  /*  ermum  =  0,  no  error  */ 

NULL,  /*  ermum  ==  1,  windowing  error  */ 
"Syntax:  CXLDEMO  [-switches]\n\n" 

”\t  -c  =  CGA  snow  elimination'll" 

"Nt  -b  =  BIOS  screen  writingNn" 

-m  =  force  monochrome  text  attributes", 
"Memory  allocation  error" 


/*  miscellaneous  defines  */ 


#define  SHORT_DELAY  18 
#define  H  WINTITLE  33 


/♦’fr********************************************************************/ 
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/*  this  function  will  add  a  shadow  to  the  active  window  */ 

/+  +  ****  +  *******  +  **  +  +  ***  +  .f*  +  +  *****  +  +  **  +  ***  +  +  +  *****  +  +  ifr*  +  :*<*  +  ****;f  +  ***4lj4l**+/ 


static  void  add_shadow(void) 

{ 

wshadow(LGREYI_BLACK); 


/*  this  function  pops  open  a  window  and  confirms  that  the  user  really  */ 

/*  wants  to  quit  the  demo.  If  so,  it  terminates  the  demo  program.  */ 

/**********************************************************************/ 


static  void  confirm_quit(void) 

I 

struct  _onkey_t  *kblist; 


kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 

if( !  wopen(9,26, 1 3 ,55 ,0,  WHITELBROWN,  WHITELBROWN))  error_exit(  1 ); 
add_shadow(); 

wputs("V>  Quit  demo,  are  you  sure?\033A\156Y\b"); 

clearkeys(); 

showcur(); 

if(wgetchf("YN",’Y’)==’Y’)  normal_exit(); 

wclose(); 

hidecur(); 

if(_mouse&MS_CURS)  msshowcur(); 
chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/ft*********************************************************************/ 

/*  this  function  is  called  by  die  pull-down  demo  for  a  prompt  */ 

y**********************************************************************/ 

static  void  disp_sure_insg(void) 


wprints(0,2,WHITEI_BLUE,”Are  you  sure?"); 

I 


1512 


y***************** ***********  ******  ************************************y 


/*  this  function  handles  abnormal  termination.  If  it  is  passed  an 
/*  error  code  of  1 ,  then  it  is  a  windowing  system  error.  Otherwise 
/*  the  error  message  is  looked  up  in  the  error  message  table. 


*/ 

*/ 

*/ 


y* ******************** *************** **********************************y 


static  void  error_exit(int  ermum) 

{ 

if(ermum)  { 

printf("\n%sNn",(eimum=l)?werrmsg():error_text[ermum]); 

exit(ermum); 


) 


y**********************************************************************y 
/*  this  function  initializes  CXL’s  video,  mouse,  keyboard,  and  help  systems  */ 

y**********************************************************************y 

static  void  initialize(void) 

I 

/*  initialize  the  CXL  video  system  and  save  current  screen  info  */ 
videoinit(); 

readcur(&crow,&ccol); 
if((savescrn=ssave())==NULL)  error_exit(3); 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 

if(msinitO)  ( 
mssupport(MS_FULL); 
msgotoxy(  12,49); 

I 

/*  attach  (Alt-X|  to  the  confirm_quit()  function  */ 
setonkey(0x2d00,confirm_quit,0); 

/*  attach  [Ctrl  Pageup]  to  the  PageupO  function  */ 
setonkey(0x8400.Pageup,0); 
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/*  attach  [Ctrl  Pagedown]  to  the  Pagedown()  function  */ 
setonkey(0x7600,Pagedown,0); 

/*  initialize  help  system,  help  key  =  [FI]  */ 

whelpdef("CXLDEMO.HLP",Ox3bOO,YELLOWI_RED,LREDI_RED, 

WHITEI_RED,REDI_LGREY,pre_help); 


^*  ******* **************************************************************/ 

static  void  pre_hdp(void) 

{ 

add_shadow(); 

setonkey  (0x2d00,confirm_quit  ,0 ) ; 

} 


^* *********************************************************************/ 
/*  this  function  is  called  anytime  to  switch  back  to  previous  window.  */ 

/*********************************j|c*iti*i|<***i|<**>|<*i(<*****>|<j|<*>|<it<******i|<**ifj|<>(<ify 

static  void  Pageup(void) 

( 

static  WINDOW  handle; 


handle  =  whandleQ; 
wactiv(handle  -  1 ); 

} 


/*  this  function  is  called  anytime  to  switch  back  to  next  window.  */ 

/:f  +  *  +  +  *  +  +  ****  +  +  +  +  :f*  +  ***:f<**  +  **;M' ****************************************/ 

static  void  Pagedown(void) 

( 

static  WINDOW  handle; 


handle  =  whandleQ; 
wactiv(handle  +  1 ); 
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^**********i(i**  +  ***i(c***i(<**i(<***i(<*****)|<  +  **)(ii|<******4ii(<*******4<**<<**+*  +  ****it<>ti^ 

/*  this  function  handles  nonnal  termination.  The  original  screen  and  cursor  */ 

/*  coordinates  are  restored  before  exiting  to  DOS  with  ERRORLEVEL  0.  */ 

/+ ++*+*********+*+***=(<**+*******+***+*+'(<*****+★*+>(<++++★+*★*>♦■++*+***+**+/ 


static  void  normal_exit(void) 

I 


srestore(savescm); 

gotoxy_(crow,ccol); 

if(_mouse)  mshidecur(); 

showcur(); 

exit(0); 


/ *  this  function  displays  a  pause  message  then  pauses  for  a  keypress  */ 


static  void  press_a_key(int  wrow) 

{ 

register  int  attrl; 
register  int  attr2; 


attr  1  =(  YELLOW  )l((_winfo.active->wattr»4)«4); 
attr2=(LGREY)l((_winfo.active->watti»4)«4); 
wcenters(wrow,attrl, "Press  a  key"); 
wprints(wrow,0,LGREYI_RED,"Pgup/Pgdn"); 
hidecur(); 

if(waitkey()==ESC)  confirm_quit(); 
wcenters(wrow, attrl,"  "); 

wprints(wrow,0,attr2,"  "); 


/♦if********************************************************************/ 

/*  This  routine  causes  short  dealys  during  execution  */ 

/********************i **************************************************/ 

static  void  short_delay(void) 

{ 

delay  _(SHORT_DELAY); 

) 
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/*  this  function  is  called  by  the  pull-down  menu  demo  anytime  */ 

/*  the  selection  bar  moves  on  or  off  the  [QJuit  menu  items. 


/* 


**** 


*/ 

*************************************************%**************4y 


static  void  quit_window(void) 

{ 

static  WINDOW  handle=0; 


if(handle)  ( 
wactiv(handle); 
wclose(); 
handle=0; 


else  ( 

handle=wopen(  1 4,4 1 , 1 7 ,70,0,YELLOWI_RED,WHITELRED); 
wputs("  Quit  takes  you  back  to  theVi  demo  program’s  main  menu."); 

} 

} 


^*******  +  *  +  *  +  *****  +  **  +  *  +  ******  +  *  +  *  +  ******  +  ***  +  *4<***  +  *  +  ***  +  *:4<****  +  :4t:4<  +  *  +  *y 

/*  shows  the  cursor  again  if  it  has  been  hidden  */ 

static  void  restore_cursor(void) 


wtextattr(WHITEI_MAGENTA); 

showcur(); 


/♦♦’fr*******************************************************************/ 

/*  enlarges  or  shrinks  the  windows  */ 

/♦fc^*******************************************************************^ 

static  void  size_window(int  nerow,int  necol) 


wsize(nerow,necol ); 
short_delay(); 
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y**********************************************************************/ 

/*  moves  the  active  window  to  a  given  screen  coordinates  */ 

^*  +  *******  *******  ****  ***************  *****i(c  +  **************i(<*i|(****i|t*i|i****^ 

static  void  move_window(int  nsrow,int  nscol) 

I 

if(wmove(nsrow, nscol))  error_exit(  1 ); 
sliort_delay(); 

I 

/*  this  routine  calls  language()  routine  whenever  Pageup  or  Pagedown  */ 

/*  keys  are  pressed.  */ 

/t*********************************************************************/ 

void  Pl() 

I 

wcloseallO; 

language!); 

I 

/*******  +  *  +  ****************  J********************************************/ 

/*  this  routine  calls  ex_lang_l()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P2() 


wcloseallO; 

ex_lang_l(); 

} 

/*  this  routine  calls  grammar()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

void  P3() 


wcloseallO; 

grammarO; 
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y*********** ************************************************** *********y 

/*  this  routine  calls  backus()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y***********************************************i (t**********************y 


void  P4() 

I 

wcloseall(); 

backus(); 

) 

y**********************************************************************y 

/*  this  routine  calls  ex_lang_2  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y* ***************************** ****************************************y 

void  P5() 


wcloseall(); 

ex_lang_2(); 


y**********************************************************************y 

/*  this  routine  calls  sorting  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y************************************* *************************** ******y 

voidP6() 


wcloseallO; 

exercisesO; 


y* ******************************************************* **************y 

/*  tliis  routine  calls  exerl  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 


/ 

void  P7() 

I 


/ 


wclosealK ); 
exerl(); 


I 
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j*  *  *  +  S********  **  ******  Jit********  ****  *  *  +  +  *  *  **  1)1  ***  !(t  ***  +  *  lie****  ****#  *  * ******  *^ 

/*  tliis  routine  calls  exer2  routine  whenever  Pageup  or  */ 

/*  PageDown  keys  are  pressed.  */ 

y**********************************************************************/ 

void  P8() 

I 

wcloseallO; 

exer2(); 

) 

y**********************************************************************y 

/*  this  routine  calls  exer3  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

^**********************************************************************^ 

void  P9() 


wcloseallO; 

exer3(); 

I 

/***************************jfr******************jtc***********************yl 

/*  this  routine  calls  final_cut()  routine  whenever  Pageup  or  */ 

/*  Pagedown  keys  are  pressed.  */ 

y*  *************************************************************** ******y 

void  PI0() 


wcloseallO; 

final_cut(); 


yl* ********************************************************************* 

/*  main  routine,  calls  minimal  spanning  tree  tutorial  */ 

^* ********************************************************************* 

void  main( ) 

I 

initialize! ); 
language!); 
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/**********************************************************************/ 
/*This  routine  calls  definition,  example  and  algorithm  routines  about  */ 

/*  language  syntax.  */ 

/***********************************%********************************** j 

static  void  language(void) 

I 

register  int  *scm; 


if((scm=ssave( )  )==N  ULL)  error_exit(3 ); 
cclrscm(LGREYI_BLUE); 

y* *************************************************+****++**+********/ 

/*  attach  IPagedown]  to  the  ex_lang_l()  function  */ 
setonkey(0x5100,P2,0); 

/********************************************************************y 

if((w[  1  |=wopen(5.15,l  1 ,54,3,LCY/u>?!_BLACK3LACK!_CYAN))==0) 
ei  ror_exit(  1 ); 

wtitle("[Syntax  of  Languages]", TCENTER.LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  English  grammar  provides  a  set  of  rules  by  which  we  can" 

"  classify  words  in  a  sentence  according  to  their  function" 

"  in  the  sentence."); 
press_a  Jkey(4 ); 
wslide(0,0); 

^*********i(<*>l<*l(<j|'*********>t<****  +  *j(<*4c*  +  ***  +  +  +  *****Jtt****!(l**l(<>|<*!)e!(<l(t***%***^ 

if((w[2]=wopen(5,15,16,54,3,LCYANLBLACK3LACKI_GREEN»==0) 
error_exit(  1 ); 

wtitle("[Syntax  of  Languages]", TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whel  pcat(H_WINTrTLE ) ; 

wputsw("  In  the  sentence,  The  dog  chases  the  cat,  The  dog’  is  the  subject" 

"  and  ’chases  the  cat'  is  the  predicate.  The  subject,  in  turn," 

"  consists  of  the  article  ’the’  followed  by  the  noun  ’dog’." 

"  The  predicate  can  also  be  decomposed  into  the  verb  ’chases’" 

"  and  the  object  ’the  cat’,  which  is  an  article  and  a  noun."); 
press_a_key(9); 
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wslkle(0,40): 

shoit_delay(); 

ex_lang_l(); 

srestore(scm); 


/*  This  routine  gives  an  example  for  a  parse  tree  */ 

y**********************************************************************y 

static  void  ex_lang_l  (void) 


/********************************************************************/ 

/*  attach  [Fageiip]  to  the  language()  function  */ 

setonkey(0x4900,Pl,0); 

/********************************************************************^ 

/*  attach  [Pagedown]  to  the  grammar!)  function  */ 

setonkey(0x5100,P3,0); 

/*%********************************%****%**********%**$%*%**%***%%***/ 
if((w|3|=wopen(l  1,15, 16, 65,3  ,LCYANI_BLACK,BLACKI_MAGENTA))==0) 
error_exit(  1 ); 

wtitle(”[Syntax  of  Languages]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTITLE); 

wputsw("  We  can  represent  this  structure  by  a  tree  known  as  a" 

"  parse  tree.  You  will  see  an  example  in  the  following  " 

"  figure."); 
press_a_key(3 ); 
short_delay(), 
wcloseallO; 

spawnl(P_WAIT,”examp471.exe",NULL); 

cclrscm(LGREYI_BLUE); 

grammar! ); 
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/a*********************************************************************/ 

/*  This  routine  talks  about  the  grammar  of  languages.  */ 

y*  ***************************** ****************************************^ 

static  void  grammar(void) 

I 

/********************************************************************/ 

/*  attach  [Pageup]  to  the  ex_lang_l()  function  */ 

setonkey(0x4900,P2,0); 

^* *************************************************************** ****y 

/*  attach  [Pagedown]  to  the  backus()  function  */ 
setonkey(0x5100,P4,0); 

/********************************************************************/ 


if(( w[  1  ]=wopen(5 ,20, 1 3 ,60,3 ,  WHITEI_BLACK,REDI_CY  AN))=0)  error_exit(l); 

wtitle("[Grammars]",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_WINTITLE); 

\vputsw("  Tlie  grammar  of  a  language  consists  of  a  set  of  rules  that" 

"  specify  precisely  what  descendent  nodes  each  nonterminal" 

"  may  have.  Since  the  rules  can  be  used  to  produce  sentences," 

"  they  are  known  as  production  rules."); 
press_a_kev'6); 
wslide(0,0;; 
shc*t_delay( 

^*************************************************>ft****************** 


if((w[2]=wopen(5, 20,18,60, 3, WHITELBLACK,BLACKI_CYAN))=0) 
error_exit(l ); 

wtitle("[GrammarsJ",TCENTER,_LGREYIBROWN); 

add_shadow( ); 

whelpcat(H_W!NTITLE); 

wputswt"  The  grammar  corresponding  to  the  parse  tree  that  we  have" 

”  shown  to  you  is  given  below 


wputs("\n 

Sentence 

::=  Subject  Predici 

wputs(’Vi 

Subject  : 

:=  Article  Noun"); 

wputs("\n 

Predicate 

::=  Verb  Object"); 

wputsfNn 

Object  : 

:=  Article  Noun"); 

wputst  "Vi 

Article 

:=  the"); 
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::=  dog"); 
::=  cat"); 

::=  chases"); 


wputs('Vi  Noun 
wputs(”\n  Noun 
wputs("\n  Verb 
press_a_key(  1 1 ); 
wslide(9,0); 
short_delay(); 

/**************************************************************  ******/ 

if((w[3]=wopen(5,20,13,59,3,WHITEI_BLACK,REDI_CYAN))==0)  error_exit(l); 

wtitle("[Granunars]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

wlielpcat(H_WINTITLE); 

wputsw("  Tlie  ::=  symbol  indicates  that,  on  a  parse  tree,  the  item  on" 

"  the  light  as  descendents.  One  symbol  on  the  left  of  a 
"  will  appear  as  the  root  of  the  parse  tree.  Tills  symbol  is" 


"  refered  to  as  the  start  symbol."); 
press_a_key(6); 
wslide(0,40); 
short_delay( ); 

Z********************************************************************/ 

if((w[41=wopen(5,20,2 1 ,60,3,  WHITELBLACK,BLACKI_CYAN))==0) 
error_exit(  1 ); 

wtitle("rGranunars|".TCENTER,_LGREYIBROWN); 
add_shadow( ); 
whelpcat(  H_WINTITLE); 

wputsw("  Tlie  rules  of  the  grammar  can  be  used  to  generate  all  possible" 

"  sentences  of  the  language.  In  our  example, since  the  only" 

"  possible  terminal  symbols  are  ’the\’dog  Ycat’.and" 

"  'chases’,  there  are  only  four  possible  parse  trees.  They" 

"  correspond  to  the  following  sentences  :"); 
wputsfVi  Tlie  dog  chases  the  cat"); 
wputst'Vi  Tlie  dog  chases  the  dog"); 
wputs('\n  The  cat  chases  the  dog"); 
wputst'Vi  The  cat  chases  the  catVt"); 

wputswt"  These  sentences  are  the  entire  language  defined  by  this" 

"  grammar.”); 
press_a_key(  14); 
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wslide(9,39): 

shoii_delay(); 

if((w[5  ]=wopen(5 , 1 5 , 1 5 ,65,3 ,  WHITEI_B  LACK  ,WHITEI_BLUE))=0) 
error_exit(  1 ); 

wtitle(”[Grainmars]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  Another  way  to  use  the  rules  is  to  analyze  a  sentence  to  see" 
"  if  it  is  a  syntactically  correct  sentence  in  the  language." 

"  This  is  done  by  using  the  rules  to  attempt  to  generate  a" 

"  parse  tree  whose  terminal  symbols  are  the  sentence.  If  such" 

"  a  tree  can  be  constructed,  the  sentence  is  part  of  the" 

"  language.  The  analysis  of  the  sentence  in  this  way  is  called" 

"  parsing."); 
press_a_key(8); 
short_delay(); 
wcloseall(); 
backus(); 

) 


/*  This  routine  talks  about  Backus-Naur  Form.  */ 

static  void  backus(void) 

I 


/*  +  **************. k*************************************************** 


/*  attach  [Pageupl  to  the  grammar()  function  */ 
setonkey(0x4900,P3,0); 

/%*******************************************************************/ 


/*  attach  fPagedown]  to  the  ex_lang_2()  function  */ 
selonkey(0x5100,P5,0); 

+  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  *  +  +  +  +  *  +  +  +  +  +  + 


if((wf  1  |=wopen(5,20,15,60,3,WHITEI_BLACK,RED!_CY.4N))==0)  error_exif(l); 
wtitleCI Backus-Naur  Fonn]",TCENTER,_LGREYIBROWN ); 


add  shadow! ); 
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whelpcat(H_WINTITLE); 

wputsw("  Computer  scientists  use  grammars  to  give  formal  definitions" 

"  to  programming  languages.  The  fonnal  definitions  specify  the" 

"  ’legal’  statements  that  are  part  of  a  program  written  in  a" 

"  given  language.  But  computer  scientists  need  a  language  to" 

"  define  programming  languages."); 
press_a_key(8); 
wslide(0,0); 
shoit_delay(); 

/********************************************************************/ 
if((w[2]=wopen(5, 20,13,60, 3,WHITEI_BLACK,WHITEI_MAGENTA))==0) 
error_exit(l); 

wtitle("[Backus-Naur  Form]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(  H_  WINTITLE ) ; 

wputsw("  A  language  used  to  describe  other  languages  is  called  a" 

"  ’metalanguage’.  Probably  the  most  common  metalanguage  used" 

"  by  computer  scientists  to  define  programming  languages  is" 

"  known  as  ’Backus-Naur  Fonn’,  abbriviated  BNF."); 
press_a_key(6); 
wslide(0,40); 
short_delay(); 

/***********+********************************************************/ 
if((w[3]=wopen(?,  10, 14,65, 3,WHITEI_BLACK>BIACKLCYAN))==0) 
error_exit(,  1 ); 

wtitle("[Grammars]”,TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputsw("  For  example,  the  BNF  specification  of  a  grammar  for  simple" 

"  arithmatic  expression  may  appear  as 
wputs(’\i  <Expression>  ::=  <Expression>  <Operator>  <Expression>"); 
wputs("  I  (<Expression>)  "); 

wputs('Yi  I  -  <Expression>)  "); 

wputs('Vi  I0I1I2I3I4I5I6I7I8I9 "); 

wputs('Vi  <Operator>  ::=  +I-I*I/IA  "); 
press_a_key(7); 
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wslide(9,0); 


short_delay(); 


/* 


*********************** 


*********************  ***********************/ 


if((w[4]=wopen(5,10,19,65,3,WHITEI_CYAN,REDI_BLACK))=0)  error_exit(l); 

wtitle("[GrammarsJ",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WlNTITLE); 

wputsw("  In  this  grammar,  the  nonterminal  symbols  are  <Expression>” 

"  and  <Operator>.  <Expression>  is  the  start  symbol.  Tlie  terminal" 

"  symbols  are  "); 

wputs("\n  0,  1,  2,  3, 4,  5,  6,  7,  8,  9,  +,  *  /,  a,  (,  and  ).V); 
wputsw("  Note  that  the  definition  of  this  language  is  recursive" 

"  because  <Expression>  is  defined  in  tenns  of  itself."); 
wputs(”\n  The  symbols  of  BNF  are 
wputs("\n  ::=  ’is  defined  as”'); 
wputs('Vi  I  ’or’"); 

wputs('\n  <  >  ’syntactic  category  name”'); 

press_ajkey(12); 

short_delay(); 

wcloseall( ); 

ex_lang_2(); 


/t*********************************************************************^ 


/*  This  routine  gives  an  example  for  Backus-Naur  Form  */ 


static  void  ex_lang_2  (void) 


/*  attach  [Pageupl  to  the  backus()  function  */ 
setonkey(0x4900,P4,0); 


/*  attach  [Pagedown]  to  the  final_cut()  function  */ 
setonkeytOx?  lOO.PlO.O); 


/****************  «;***********************:f  +  ************  +  ***++******  +  *yt 
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if((  w[  2  J=wopen(5 , 1 5 , 1 0 ,65 ,3 ,  WHITE!_B  LACK,  WHITEI_LGREY  ))==0) 
eiTor_exit(l); 

wtitle("[Binary  Search  Trees  -  Example_4_l]",TCENTER,_LGREYIBROWN); 

add_shadow(); 

whelpcat(H_WINTTTLE); 

wputs('Vi"); 

wputsw("  Let’s  illustrate  this  grammar  with  an  example  ?"); 

press_a_key(3); 

short_delay(); 

wclose(); 

spawnl(P_W  AIT, "examp472.exe", NULL); 

ccl  rsc  m(  LG  R  EY  !_B  LU  E) ; 

final_cut(); 


J^C  %  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 

/*  This  routine  finishes  the  session  with  language  syntax  */ 

/I**********************************************************************/ 


static  void  final_cut(void) 

( 

1 


/************************************★*******************************/ 
/*  attach  [Pageupl  to  the  ex_lang_2()  function  */ 
setonkey(0x4900,P5 ,0 ); 

^fr****************^*************************************************/ 


/*  attach  [Pagedown]  to  the  cxercisesO  function  */ 
setonkey(0x5100,P6.0); 

/t*******************************************************************/ 


if((w[  1  |=wopen(5,20,12,60,3,WHITELBLACK,WHITEI_MAGENTA))==0) 
error_exit(  1 ); 

wtitle(”[Backus-Naur  Fonn]",TCENTER,_LGREYIBROWN); 
add_shadow( ): 
whelpcat(H  WINTITLE); 

wputsw("  There  is  another  method  of  defining  a  programming  language." 

"  which  is  called  ’syntax  diagrams’.  But  this  method  is  not" 

"  in  our  scop  that’s  why  we  will  not  cover  this  topic."); 
press_a_key(5); 


1527 


short_delay(); 

wclose(); 

exercises(); 


/**********************************************************************/ 

/*  This  routine  makes  a  small  quiz  about  the  language  syntax.  */ 

***+++*+**+*+*+++*+**+**++*+*.****+**+*+++*************+++*******++***/' 

void  exercises(void) 

{ 

register  int  *screen; 


/*  attach  [PageUp]  to  the  final_cut()  function  */ 
setonkey(0x4900.P10,0); 


/*  attach  [Pagedown]  to  the  exerlO  function  */ 
setonkey(0x5 100.P7.0); 


if((w[  1  ]=wopen(5, 15,10,65,3,LCYANLGREEN,WHrrELRED))==0) 
error_exit(l); 

wtitle("[Language  Syntax]",TCENTER,_LGREYIBROWN); 

whelpcatfHWI  N  I TI LE) ; 

add_shadow(); 

wputs('\n"); 

wputswt,”  We  have  completed  our  presentation  of  this  section.  Are" 

"  you  ready  for  a  pop  quiz  ?  "); 
press_a_key(3); 
short_deIay(); 
wclosef); 

if((screen=ssave())==NULL)  error_exit(3);  { 

/*******************************************************.************* 


exerl(); 

I* ****************************************************************** 

/*  if  mouse  exists,  turn  on  full  mouse  support  */ 
if(msinit())  ( 
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mssupport(MS_FULL); 
msgotoxyf  12,49); 

} 

) 

srestore(screen); 


/++*+****++*+**********+************************************+**********/ 
/*  Dummy  function  to  call  the  actual  exercise  4.7.1  */ 

j  *  *  *  *  *****  ********  *******  **  *  ♦  ***  **  **  *  ******  ******  *  *  *  *  *  +  *  * **+  ****  *  *  *  *  **  *i 

static  void  exerl(void) 


/* 


*  +  +  *  +  +  +  +  *  +  +  *  +  +  *  +  *  +  *  +  + 


/*  attacli  [Pageup]  to  the  final_cut()  function  */ 

se  tonkey(0x4900,P  1 0,0); 

/************************  +  *********************:|<!tt**!(<***s|t!|e***j|<*****)|<l|tj|y 

/*  attach  [Pagedown]  to  the  exer2()  function  */ 
setonkey(0x5 1 00,P8,0); 

/*  ********************************★**********************************/ 


if((w[l]=wopen(5.15,10,65,3,LCYANI_GREEN,WHITEI_RED))==0) 
error_exit(  1 ); 

wtitlef] Language  Syntax]", TCENTER,_LGREYIBROWN); 

whelpcat(H_WINTITLE); 

add_shadow(); 

wputs("\n"): 

wputswf"  Here  is  the  first  question.  "); 

press_.a_key(3); 

wcIose(); 

spawnl(P_WAIT,"q47 1  ,exe",NULL); 

cclrscm(LGREYI_BLUE); 

exer2(); 


) 
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^* ********************+*******+**********************************++***+/ 
/*  Dummy  function  to  call  the  actual  exercise  4.7.2  */ 

y**********************************************************************/ 


static  void  exer2(void) 

( 

y********************************************************************y 

/*  attach  [PageUp]  to  the  exerl()  function  */ 

se  tonkey  (0x4900 ,  P7 ,0 ) ; 

y*******************************************************************:^ 

/*  attach  [Pageciown]  to  the  exer3()  function  */ 
setonkey(()x5 100,P9,0); 

y**  *********  ********************************************+************y 

if((w[  1  ]=wopen(5 , 1 5 , 1 0,65 ,3  ,LCYANI_GREEN,WHITEI_RED))==0) 
error_exit(  1 ); 

wtitle("[Language  Syntax] ",TCENTER,_LGREYIBROWN); 

whelpcat(HWlNTITLE); 

add_shadow( ); 

wputs('V); 

wputsw(”  Here  is  the  second  question.  "); 

press_a_key(3 ); 

wclose(); 

spawnl(P_W  AIT, "q472.exe", NULL); 

cclrscni(LGREYI_BLUE); 

exer3(); 
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/**********************************************************************/ 
i*  Dummy  function  to  call  the  actual  exercise  4.7.3  */ 

/************************************************  ********************,*y 

static  void  exer3(void) 

{ 

I********************************************************************! 

/*  attach  [Pageup]  to  the  exer2()  function  */ 

setonkey  (0x4900, P8,0); 

/***+******+*+*********+*******+******+*****+****+***********+***++**/ 


if((w[l]=wopen(5, 15,10, 65, 3,LCYANLGREEN,WHITELRED))==0) 
error_exit(l); 

wtitleflLanguage  Syntax]", TCENTER,_LGREYIBROWN); 

whelpcat(  H_  WINTITLE ); 

add_shadow(); 

wputs('Vi"); 

wputsw("  Here  is  the  third  question.  "); 

press_a_key(3 ); 

wclose(); 

spawnl(P_WAIT,"q473.exe",NULL); 
ccl  rsc  m(  LG  RE  Y  l_B  LUE) ; 
nonnal_exit(); 
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/*  PROGRAM  :examp471.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  18,  1990 
REVISED  :Apr.  18,  1990 

DESCRIPTION  :  This  routine  draws  the  example  graph  for  a  parse  tree. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dcs_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#definc  ff_name  name 
#define  ff_attrib  attribute 

#endif 

#define  _GRAPH_T_DEFINED 
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/*  function  prototypes  */ 


/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/*  graphic  initialization  variables  */ 

/if:*********************************************************************/ 

int  curr_mode; 

int  graphdriver; 

ini  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


y*  **********************************#**********************************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

y*  *********************************************************************/ 

static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(re<iisterbgidriver(ATT_driver)  <  0)  exit(l); 

) 
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y*************%********************************************************y 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

y**********************************************************************^ 
static  void  init_graph(void) 

{ 

int  xasp,  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

y********************************************************************/ 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 


if(graph_error  <  0)  { 

puts(grapherrormsg(graph_erTor)); 

exit(l); 

} 


MaxX  =  getmaxx(); 

MaxY  =  getmaxy(); 
x  =  MaxX/80; 
y  =  MaxY/25; 
settext(); 

if  ((graphmode  ==  CGAHI)  II  (graphmode  ==  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  M CGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK;; 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

} 

forecolor  =  WHITE; 
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^/*  *******  ********************  ************************************  ******  j 

/*  This  function  sets  the  text  default  values  */ 


static  void  settext(void) 

{ 

settexistyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 

} 


/i***************************************************^***************** 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

j^c  ********************************************************************* 

void  Pause (i  j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE...«<"); 
if(waitkey()==ESC)  ( 
closegraph(); 
videoinit(); 
exit(O); 


/********************************************************************** 
/*  main  routine,  calls  exer  routine  */ 

jif.  ********************************************************************* 

void  main() 

{ 

exer(); 
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y**********************************************************************/ 

/*  This  routine  illustrates  a  parse  tree.  */ 

/**********************************************************************/ 
void  exer() 

{ 

init_graph(); 
setcolor(forecolor); 
bar(0,0,MaxX,MaxY); 
rectangle(x,y,MaxX-x,MaxY -y/2); 
outtextxy(38*x,y/2, "EXAMPLE  4-7- 1 "); 

y***^****************************************************************/ 

pieslice(45*x,2*y, 0,359,2);  /*  Sentence  */ 

pieslice(25*x,5*y,0,359,2);  /*  Subject  */ 
pieslice(65*x,5*y, 0,359,2);  /*  Predicate  */ 

moveto(25*x,5*y);  lineto(45*x,2*y);  lineto(65*x,5*y); 
outtextxy(40*x,3*y/2, "sentence"); 
outtextxy(  1 6*x,5*y, "subject"); 
outtextxy(67*x,5*y, "predicate"); 

I*  *****************************************************************  **  j 

pieslice(15*x,10*y, 0,359,2); 
pieslice(35*x,10*y,0,359,2); 
pieslice(50*x,10*y,0,359,2); 
pieslice(70*x,10*y,0,359,2); 

moveto(15*x,10*y);  lineto(25*x,5*y);  lineto(35*x,10*y); 
moveto(50*x,10*y);  lineto(65*x,5*y);  lineto(70*x,10*y): 
outtextxy(6*x,10*y, "article"); 
outtextxy(37*x,10*y,"noun"); 
outtextxy(52*x,10*y,"verb"); 
outtextxy(72*x,10*y, "object"); 

l*******^***********************************************************^j 

pieslice(60*x,13*y,0,359,2); 
pieslice(80*x,  1 3*y,0,359,2); 

moveto(60*x,13*y);  lineto(70*x,10*y);  lineto(80*x,13*y); 
outtextxy(62*x,  1 3*y, "article"); 
outtextxy(82*x,13*y,”noun"); 

/********************************************************************/ 
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pieslice(  1 5*x,  16*y,0,359,2); 
pieslice(35*x,16*y,0, 359,2); 
pieslice(50*x,16*y,0, 359,2); 
pieslice(60*x,  1 6*y,0,359,2); 
pieslice(80*x,16*y, 0,359,2); 
moveto(15*x,10*y);  lineto(15*x,16*y); 
moveto(35*x,10*y);  lineto(35*x,16*y); 
moveto(50*x,  1 0*y);  lineto(50*x,  1 6*y); 
moveto(60*x,13*y);  lineto(60*x,16*y); 
moveto(80*x,  1 3*y);  lineto(80*x,  1 6Iicy); 
outtextxy(  1 3*x,33*y/2,"The"); 
outtextxy(33*x,33*y/2,"dog"); 
outtextxy(47*x,33*y/2, "chases"); 
outtextxy(58*x,33*y/2,"the”); 
outtextxy(78*x,33*y/2,"cat"); 

jib  ************************* ******************************************J 

outtextxy(2*x,18*y, "There  are  two  kinds  of  nodes  in  the  parse  tree.  One  kind  rep¬ 
resents  the"); 

outtextxy(2*x,19*y, "words  of  the  original  Engiish  sentence.  These  nodes  appear 
as  the  leaves  of'); 

outtextxy(2*x,20*y,"the  tree  and  are  called  terminals.  The  terminals  taken  in  left 
to  right  or-"); 

outtextxy(2*x,21*y,"der,  form  the  original  English  sentence.  The  other  kind  repre¬ 
sents  grammati-"); 

outtextxy(2*x,22*y,"cal  categories.  These  nodes  are  called  nonterminals,  or  syn¬ 
tactic  categories."); 

Pause(30*x,24*y); 

closegraph(); 

videoinitQ; 
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/*  PROGRAM  :  examp472.c 
AUTHOR  :  AtUla  BAKAN 
DATE  :  Apr.  18,  1990 
REVISED  :  Apr.  18,  1990 


DESCRIPTION  :  This  routine  draws  the  example  graph  for  backus  naur  form. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 
#include  <graphics.h> 
#include  "cxldef.h" 


#if  defined! _ TURBOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#emlif 

#if  defined(M _I86)  &&  !defined(„ZTC_J  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bh>s_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ffjaame  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#de fine  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 

#defiiie  GRAPH_T_DEFINED 
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/*  function  prototypes  */ 


/*  Utility  functions  */ 

static  void  init_graph  (void); 

static  void  Pause  (int  i,  int  j); 

static  void  register_<lrivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 


/***************************************+***********+******************/ 
/*  graphic  initialization  variables  */ 

/t*********************************************************************/' 

int  curr_tnode; 

int  graphdriver; 

int  graphmode; 

int  graph_error; 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 


/♦★if******************************************************************* 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

^*  ******** ************************************************************* 
static  void  register_drivers(void) 

1 

if(registerbgidrivei(Crj.*_driver)  <  0)  exit(l); 
if(registerbgidiiver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  0)  exit(l); 

) 
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/fr********************************************************************)^ 

/*  This  faction  initializes  the  necessary  graphical  routines  v/ 

f****************************************************************++**+*f 

static  void  init_graph(void) 

( 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT ; 

/******%************************%*********************************+**/ 

initgraph(&graphdriver,&graphmode,""); 

graph_error  =  graphresultO; 

^J^*******************************************************************/ 

if(graph_error  <  0)( 
puts(graphenormsg(graph__error)); 
exit(l ); 

( 

y********************************************************************/ 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
y  =  MaxY/25; 
settextO; 

if  ((graphmode  ==  CGAHI)  II  (graphmode  =  MCGAMED)  II  (graphmode  == 
ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

> 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

) 

forecoh-r  =  WHITE; 

I 

i 
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y**********************************************************************/ 

/*  This  function  sets  the  text  default  values  */ 

y* **************+******************************************************/ 

static  void  settext(void) 

{ 


settextstyle(0,0,0); 

setlinc3tyle(0.4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 


/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

/********************************************************************** 
void  Pause(i,j) 
int  i,  j; 


settext(); 

ouffexfxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE... «<"); 
if(waitkey()==ESC)  { 
closegraplif); 
videoinit(); 
exit(O); 


/*  main  routine,  calls  exer  routine  */ 

void  mainO 


exer(); 


/*  This  routine  illustrates  an  example  of  Backus-Naur  form.  */ 

void  exer() 


init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX.MaxY); 

rect  angle(x  ,y  .MaxX-x  ,Max  Y  -y/2 ) ; 

outtextxy(38*x,y/2, "EXAMPLE  4-7-2"); 

pieslice(45*x.2*y,0,359,2);  /*  Expression  */ 

pieslice(25*x,5*y,0,359,2);  /*  Expression  */ 

pieslice(45*x,5*y.0,359,2);  /*  Operator  */ 

pieslice(65*x.5*y, 0,359,2);  /*  Expression  */ 
moveto(25*x,5*y);  Iineto(45*x,2*y);  lineto(65*x,5*y); 
moveto(45*x,5*y);  lineto(45*x,2*y); 
outtextxy(39*x,3*y/2, "expression"); 
outtextxyf  1 2*x,5*y,  "expression"); 
outtextxy(47*x,5*y, "operator"); 
outtextxy(67*x,5*y, "expression”); 

pieslice(15*x.l0*y,0,359,2); 
pieslice(25*x,10*y,0,359,2); 
piesiice(35  *x,  1 0*y  ,0,359,2); 
pieslice(45*x,10*y,0,359,2); 
pieslice(65*x,10*y,0,359,2); 

moveto(15*x,10*y);  lineto(25*x,5*y);  lineto(35*x,I0*y); 
moveto(25*x,10*y);  lineto(25*x,5*y); 
moveto(45*x,10*y);  lineto(45*x,5*y); 
moveto(65*x,l 0*y);  lineto(65*x,5*y ); 
outtextxy(15*x,21  *y/2,"("); 
outtextxy(20*x,21  *y/2,  "expression"); 
outtextxv(35*x,21  *y/2,")"); 
outtextxy(45*x,21  *y/2,"-"); 
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outtextxy(65*x,21*y/2,"l"); 

yf********************************************************************/ 

pieslice(17*x,13*y,0,359,2); 
pieslice(25*x.  1 3*y,0,359,2); 
pieslice(33*x,13*y,0,359,2); 
moveto(17*x,13*y);  lineto(24*x,ll*y); 
moveto(25*x,13*y);  lineto(25*x,l l*y); 
moveto(33*x,13*y);  lineto(26*x,l l*y); 
outtextxy(8*x,27*y/2, "expression"); 
outtextxy(21  *x,27*y/2, "operator" ); 
outtextxy(3 1  *x,27*y/2, "expression" ); 

pieslice(17*x,16*y,0,359,2); 
pieslice(25*x.l6*y,0,359,2); 
pieslice(33  *x.  1 6*y  ,0,359,2); 
moveto(17*x.l4*y);  lineto(17*x,16*y); 
nioveto(25 *x.  14*y );  lineto(25*x,  1 6*y ); 
moveto(33*x  14*y);  lineto(33*x,16*y); 
outtextxy(17*x,33*y/2,"5"); 
outtextxy(25*x,33*y/2,"A"); 
outtextxy(33*x,33*y/2,"2"); 

^fr************************************************************** >****/ 

outtextxy'8*x,18*y,"The  parse  tree  above  shows  that  the  expression"); 
outtextxy(8*x,19*y,"  (  5  A  2  )  -  1"); 

outtextxy(8*x,20*y,"is  a  valid  expressioin  in  this  language.  But  the  expression"); 
outtextxy(8*x.21*y,"  5  +  A  2  "); 

outtextxy(8*x,22*y,"is  not  valid  in  this  language.  (  Why  ?  )"); 

Pause(30*x,24*y); 
closegraph(); 
videoinit( ); 
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/*  PROGRAM 
AUTHOR 
DATE 
REVISED 


:  q471.c 

:  Atilla  BAKAN 
:  Apr.  6,  1990 
:  Apr.  6,  1990 


DESCRIPTION  :  This  program  contains  the  first  exercise  about  the  binary 
trees  and  traversals. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h” 

#if  defi ned(_  _TU R BOC _ )  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a.c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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^define  _GRAPH__T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm _graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  regUter_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  reason  1  (void); 

static  void  reason2  (void); 

static  void  reason3  (void); 

y*  **************:,.  ifc***************************************************.**/ 

/*  miscellaneous  global  variables  */ 

y* *********************************************************************/ 

int  in_the_exercise  =  1; 


/*  graphic  initialization  variables  */ 

1****************.****  +  ***********:**:*****:*********:***  +  *'*''.  ******%■********! 

int  curr_mode: 

int  graphdriver; 

int  graphmode; 

int  graph_error, 

int  backcolor; 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/I******************************************************************-;.***/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

j *  +  %  +  +  +  %  +  +  +  +  +  +  +  +  +  +  *  +  *  +  +  +  +  ^  +  +  ^  +  *  +  +  *  +  +  +  +  +  +  +  +  + 

static  void  register_driversvvoid) 


if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  <  C)  exit(l); 

} 


/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

I* *****************************  .^  ***************************************/ 

static  void  init_graph(void) 


int  xasp,  yasp; 


register_drivers(); 
graphdriver  -  DETECT; 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 


if(graoh_error  <  0){ 

puts(grapherro"rnsgfgraph_error)); 

exit(l); 


t  *  *  j 


Ma\X  =  getmaxxO; 
MaxY  =  getmaxyO; 
x  =  MaxX/80: 


y  =  MaxY/25; 

/**\*****************************j^**.. '-*******************************/ 

settextO; 

/*****************************************  :*•  +  +  :  J 

if  ((graphmode  =~-  CG  \I  II,  H  (grapnmode  ==  MCGAMED)  II  (graphmode  -= 
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ATT400MED)  I!  (graphmode  ==  MCGAHI)  il  (graphmode  =  ATT400HI))  { 
setti  :istyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quitcolor  =  WHITE; 

} 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

i 

forecolor  =  WHITE; 


static  void  confinm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(  backcolor); 

bar(3*x/2,23*y,17°*x/2,97*y/4); 

setcolor(quitcolor); 

kb!ist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n )?")• 
ch  =  getch  (); 

while  (1  ((ch  ==  ’y’)  II  (ch  ==  ‘n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n”); 
ch  =  getch  (); 

if((cn  ==  y)  II  (ch  ==  ’n’)  H  (ch  ==  ’Y’)  II  (ch  ==  ’N'» 

setcolor(backcolor); 

bar(3 1  *x,23*y,59*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 

case  'y':  closegraph(); 
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videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegraphQ; 
videoinitO; 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*\\69*x,97y  y/4): 
se  tcolor(forecolor) ; 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y,69*x,97*y/4j; 
setcolor(forecolor); 
break; 

default  :  break; 

1 

hidecurO; 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  default  values  */ 

^*  *****************************************  X*************************** 

static  void  settext(void) 

( 

settextstyle(0,0,0); 

setlinestyle(0,4,3); 

settextjustify(HORIZ_DIR,CENTER_TEXT); 
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y**********************************************************************y 

/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y*****************************************************************iic***i|cy 

void  Pause(i,j) 
int  i,  j; 

{ 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .«<"); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 

y**********************************************************************y 

/*  main  routine,  calls  exer  routine  */ 

J************ ********************************************************** f 

void  main() 

{ 

exer(); 


y**********************************************************************y 

/*  This  routine  that  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

static  void  exer(void) 

{ 

char  Ch; 

init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  1 "); 

outtextxy(18*x,2*y, "Consider  the  following  grammar  for  expressions."); 

J********************************************************************J 

outtextxy(20*x,4*y,”<Expression>  ::=  <Term>  I  <Expression>  +  <Term>"); 
outtextxy(20*x,5*y,"<Term>  ::=  <Operand>  I  <Term>  *  <Operand>"); 
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outtextxy(20*x,6*y,"<Operand>  ::=  A  I  B  I  C"); 
/******************************************************************* 
outtextxy(18*x,12*y, "Which  one  of  the  following  expressions  is  illegal"); 
outtextxy(18*x,13*y, "according  to  the  grammar  above  ?"); 
outtextxy(20*x,15*y,"a)  A"); 
outtextxy(20*x,16*y,"b)  A  *  B  *  C  +  A  "); 
outtextxy(20*x,17*y,"c)  C  +  B  *  A"); 
outtextxy(20*x,18*y,”d)  (A  *  B)  +  C"); 
outtextxy(18*x,20*y, "Enter  your  choice  here  — >”); 

Ch  =  getch  (); 

if(Ch=-ESC)  confirm_graph_exit(); 

while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)))  { 
outtextxy(48*x,20*y,"  Please  type  a,b,c,  or  d"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 

if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)  II  (Ch  ==  ’d’)) 

setcolor(backcolor); 

bar(50*x,19*y,88*x,21*y); 

setcolor(forecolor); 

} 

switch  (Ch)  { 

case  ’a’:  outtextxy(50*x,20*y,"a"); 

outtextxy(55*x,20*y,"No,  You  are  wrong!  Because"); 
outtextxy(55*x,21*y,"A  is  a  legal  expression.  Look"); 
outtextxy(55*x,22*y,”at  the  following  parse  tree.”); 
outtextxy(55*x,23*y,"(The  correct  answer  is ’d’)"); 

Pause(30*x,24*y); 
reason  1  (); 
break; 

case  V:  outtextxy(50*x,20*y,"b"); 

outtextxy(55*x,20*y, "Sorry,  You  are  wrong!  Look"); 
outtextxy(55*x,21*y,"at  the  following  parse  tree"); 
outtextxy(55*x,22*y,"to  see  why."); 
outtextxy(55*x,23*y,"(The  correct  answer  is ’d’)"); 

Pause(30*x,24*y); 

reason2(); 
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break; 

case  ’c’:  outtextxy(50*x,20*y,"c"); 

outtextxy(55*x,20*y, "Sorry,  You  are  wrong!  Look"); 

outtextxy(55*x,21*y,"at  the  following  parse  tree"); 

outtextxy(55*x,22*y,"to  see  why."); 

outtextxy(55*x,23*y,"(The  correct  answer  is ’d’)"); 

Pause(30*x,24*y); 

reason3(); 

break; 

case ’d’:  outtextxy(50*x,20*y,”d"); 

outtextxy(55*x,21*y,"Yes.  You  are  right."); 
outtextxy(55*x,22*y, "Congratulations!"); 
Pause(30*x,24*y); 
break; 

default  :  break; 

} 

closegraphQ; 


/**********************************************************************/ 
/*  This  routine  gives  reasoning  to  the  first  choice  */ 

********************** *********************************************** j 

static  void  reason  1  (void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,  1 3*y/2, 179*x/2,49*y/2); 
setcolor(forecolor); 

/********************************************************************/ 

pieslice(45*x,7*y,0,359,2);  /*  Expression  */ 

pieslice(45*x,9*y, 0,359,2);  /*  Term  */ 

pieslice(45*x,l  l*y,0,359,2);  /*  Operand  */ 

pieslice(45*x,13*y,0,359,2);  /*  A  */ 

moveto(45*x,7*y);  lineto(45*x,9*y); 

lirieto(45*x,l  l*y);  lineto(45*x,l  3*y); 

outtextxy(46*x,7*y, "Expression"); 

outtextxy(46*x,9*y,"Term"); 
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outtextxy(46*x,l  l*y,"Operanu"); 
outtextxy(45*x,27*y/2,"A"); 

1%  &  $  %  £  £  :fcsfcJtc  ifr  **  Jfc  J(c3(cjfrJic:fr3lclfcJ(i3fcjfc>fc  *  *  ***  *  ★  ifc  *  *  *  *  *  *  *  *  ****  4:  afC  3^C  3fc  j 

outtextxy(4*x,15*y,"As  you  see  A  is  a  legal  expression  with  respect  to  the  this 
grammar.”); 

/ft*******************************************************************/ 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 
bar(2*x,  1 3*y/2, 1 79*x/2,49*y/2); 
se  tcolor(  forecolor) ; 

} 

^*****************J|C******J(C****************%****************************^ 

/*  This  routine  gives  reasoning  to  the  second  choice  */ 

y**********************************************************************/ 

static  void  reason2(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 
bar(2*x,l  3*y/2, 1 79*x/2,49*y/2); 
setcolor(forecolor); 

^* *******************************************************************/ 

pieslice(45*x,7*y,0,359,2);  /*  Expression  */ 

pieslice(35*x,8*y, 0,359,2);  /*  Expression  */ 

pieslice(45*x,8*y,0,359,2);  /*  +  */ 

pieslice(55*x,8*y,0,359,2);  /*  Term  */ 

moveto(35*x,8*y);  lineto(45*x,7*y); 

lineto(55*x,8*y); 

moveto(45*x,7*y);  lineto(45*x,8*y); 
outtextxy(46*x,7*y, "Expression"); 
outtextxy(23*x,8*y, "Expression"); 
outtextxy(45*x,17*y/2,"+"); 
ouuextxy(56*x,8*y,"Term”); 

pieslice(35*x,9*y,0,359,2);  /*  Term  */ 
pieslice(55*x,9*y,0,359,2);  /*  Operand  */ 
moveto(35*x,8*y);  lineto(35*x,9*y); 
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moveto(55*x,8*y);  lineto(55*x,9*y); 
outtextxy(29*x,9*y,"Term"); 
outtextxy(56*x,9*y, "Operand"); 

y********************************************************************y 

pieslice(25*x,10*y,0,359,2);  /*  Term  */ 

pieslice(35*x,  10*y,0, 359,2);  /*  *  */ 

pieslice(45*x,10*y, 0,359,2);  /*  Operand  */ 

pieslice(55*x,10*y, 0,359,2);  /*  A  */ 

moveto(25*x,10*y);  lineto(35*x,9*y); 

moveto(35*x,10*y);  lineto(35*x,9*y); 

moveto(45*x,10*y);  lineto(35*x,9*y); 

moveto(55*x,10*y);  lineto(55*x,9*y); 

outtextxy(19*x,lO*y,"Term"); 

outtextxy(35*x,21*y/2,"*”); 

outtextxy(44*x,19*y/2,"Operand"); 

outtextxy(55*x,21*y/2,"A"); 

y********************************************************************y 

pieslice(20*x,l  l*y,0,359,2);  /*  Term  */ 
pieslice(25*x,ll*y,0,359,2);  /*  *  */ 
pieslice(30*x,l  l*y,0,359,2);  /*  Operand  */ 
pieslice(45*x,l  l*y,0,359,2);  /*  C  */ 
moveto(25*x,10*y);  lineto(20*x,l  i*y); 
moveto(25*x,10*y);  lineto(25*x,l  l*y); 
moveto(25*x,10*y);  lineto(30*x,l  l*y); 
moveto(45*x,10*y);  lineto(45*x,l  l*y); 
outtextxy(14*x,l  1  *y,"Term"); 
outtextxy(25*x,23*y/2,"*"); 
outtextxy(3 1  *x,l  1  *y, "Operand”); 
outtextxy(45*x,23*y/2,"C"); 

pieslice(20*x,12*y,0,359,2);  /*  Operand  */ 
pieslice(30*x,12*y,0,359,2);  /*  B  */ 
moveto(20*x,12*y);  lineto(20*x,l l*y); 
moveto(30*x,12*y);  lineto(30*x,l  l*y); 
outtextxy(  1 1  *x,l  2*y,"Operand"); 
outtextxy(30*x,25*y/2,"B”); 
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/********************************************************************/ 
pieslice(20*x,13*y,0,359,2);  /*  A  */ 
moveto(20*x,  1 2*y);  lineto(20*x,  1 3*y); 
outtextxy(20*x,27*y/2,"A"); 

^* *******************************************************************/ 
outtextxv(4*x,15*y,"As  you  see  we  can  represent  each  of  the  elements  in  the 
expression"); 

outtext\y(4*x,16*y,"as  a  terminals.  So  A*B*C  +  Aisa  legal  expression."); 
/*************************************>^**************$**************/ 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,13*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 


/**********************************************************************/ 
/*  This  routine  gives  reasoning  to  the  third  choice  */ 

y**********************************************************************/ 

static  void  reason3(void) 

( 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,13*y/2,179*x/2,49*y/2); 

setcolor(forecolor); 

/i********************************************************************/ 

pieslice(45*x,7*y, 0,359,2);  /*  Expression  */ 
pieslice(35*x,8*y,0,359,2);  /*  Expression  */ 
pieslice(45*x,8*y,0,359,2);  /*  +  */ 

pieslice(55*x,8*y,0,359,2);  /*  Term  */ 
moveto(35*x,8*y);  lineto(45*x,7*y); 
lineto(55*x,8*y); 

moveto(45*x,7*y);  lineto(45*x,8*y); 
outtextxy(46*x,7*y, "Expression"); 
outtextxy(23*x,8*y, "Expression"); 
outtextxy(45*x,17*y/2,"+"); 
outtextxy(56*x,8*y,"Term"); 
pieslice(35*x,9*y,0,359,2);  /*  Term  */ 
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pieslice(50*x,9*y, 0,359,2);  /*  Term  */ 
pieslice(55*x,9*y,0,359,2);  /*  *  */ 

pieslice(60*x,9*y, 0,359,2);  /*  Operand  */ 
moveto(35*x,8*y);  lineto(35*x,9*y); 
moveto(55*x,8*y);  lineto(50*x,9*y); 
moveto(55*x,8*y);  lineto(55*x,9*y); 
moveto(55*x,8*y);  lineto(60*x,9*y); 
outtextxy(29*x,9*y,"Term"); 
outtextxy(44*x,9*y,"Term"); 
outtextxy(55*x,19*y/2,"*"); 
outtextxy(61*x,9*y, "Operand"); 

pieslice(35*x,10*y,0,359,2);  /*  Operand  */ 
pieslice(50*x,10*y,0,359,2);  /*  Operand  */ 
pieslice(60*x,10*y,0, 359,2);  /*  A  */ 
moveto(35*x,10*y);  lineto(35*x,9*y); 
moveto(50*x,10*y);  lineto(50*x,9*y); 
moveto(60*x,10*y);  lineto(60*x,9*y); 
outtextxy(26*x,10*y, "Operand"); 
outtextxy(4 1  *x,  1 0*y,  "Operand"); 
outtextxy(60*x,21*y/2,"A"); 

^* *******************************************************************/ 

pieslice(35*x,  1 1  *y  ,0,359,2);  /*  C  */ 

pieslice(50*x,l  l*y,0,359,2);  /*  B  */ 

moveto(35*x,10*y);  lineto(35*x,l  l*y); 

moveto(50*x,10*y);  lineto(50*x,i  l*y); 

outtextxy(35*x,23*y/2,”C"); 

outtextxy(50*x,23*y/2,"B"); 

outtextxy(4*x,15*y,"As  you  see  we  can  represent  each  of  the  elements  in  the 
expression"); 

outtextxy(4*x,16*y,"as  a  terminals.  So  C  +  B  *  A  is  a  legal  expression."); 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,  1 3*y/2, 1 79*x/2,49*y/2); 

setcolor(forecolor); 
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/*  PROGRAM  :  q472.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  6,  1990 
REVISED  :  Apr.  6,  1990 


DESCRIPTION  :  This  program  contains  the  second  exercise  about  the 
language  syntax. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*1 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined( _ TURBOC_)  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 
#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfirst(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined( _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#define  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confirm_exit  (void); 

/**********************************************************************y 

/*  miscellaneous  global  variables  */ 

/**********************************************************************/ 
int  in_the_exercise  =  1; 


/*  graphic  initialization  variables  */ 

y********************************************************************** 

int  currjnode; 

int  graphdriver; 

int  graph  mode; 

int  graph_error, 

int  backcolor, 

int  forecolor; 

int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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y* ******%*%*********%******«************************%******************/ 

/*  This  function  is  used  for  including  drivers  to  the  executable  code  */ 

/****************************************************************)(<*****^ 

static  void  register,  drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if(registerbgidriver(ATT_driver)  0)  exit(l); 

} 

/*************♦*******************************!<************************/ 

/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

/******************************************..****,<*  ********************/ 

static  void  init_graph(void) 

{ 

int  xasp,  yasp; 

register_drivers(); 
graphdriver  =  DETECT, 

y**********************************#*********************************^ 

initgraph(&graphdriver,&graphniode,""); 
graph_error  =  graphresult(); 

if(graph_error  <  0){ 

puts(grapherrormsg(graph_error)); 

exit(l); 

} 

MaxX  =  getmaxx(); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 
v  =  MaxY/25; 

settext(); 

if  ((graphmode  ==  CGAHI)  I!  (graphmode  ==  MCGAMED)  II  (graphmode  == 


1558 


ATT400MED)  II  (graphmode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
backcolor  =  BLACK; 
quite  olor  =  WHITE; 

) 

else  { 

setfiUstyle(SOLID_FILL,BLUE); 
backcolor  =  BLUE; 
quitcolor  =  RED; 

1 

forecolor  =  WHITE; 

} 

static  vo:d  confirm_graph_exit(void) 

{ 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolorj; 

bar(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,"Quit!  Are  you  sure  (y/n)?"); 
ch  =  getch  (); 

while  (!((ch  ==  y )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  V)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

} 

switch  (ch)  { 
case  ’y’:  closegraph(); 
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videoinitO; 

exit(O); 

break; 

case  ’Y’:  closegTaph(); 
videoinitO; 
exit(O); 
break; 

case  V:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(3 1  *x,23*y,69*x,97*y/4); 
setcolor(forecolor); 
break; 

default  :  break; 

) 

hidecur(); 

if(_mouse&MS_CURS)  msshowcurO; 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*******:'  >*********************x****************)|c*******************Sf:jjc*y 

/*  This  function  sets  the  text  default  values  */ 

static  void  settext(void) 

( 

settextstvle(0,0,0); 

setlmestyle(0,4,3); 

settextjustify(HORIZ_DIR,CE1;TER_TEXT); 
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/***************)((*******  ***********************************************/ 
/*  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y^^**^^^^^e*j*c***aJc*3({4f*****  +  4e^c***3ic%*j|t^t^*^c%******jij****^^j#cj#t*3****5#c^e**3fc^cafc^c^}#c*^y 


void  Pause(i,j) 
int  i,  j; 


settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE... «<”); 
if(waitkey()==ESC)  confirm_graph_exit(); 

} 


/*  main  routine,  calls  exer  routine  */ 

**********************************  *4:*********************************^ 

void  main() 

{ 

exerO; 


/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

static  void  exer(void) 

( 

char  Ch; 


init_graph(); 

setcolor(forecolor); 

bar(0,0,MaxX,MaxY); 

rectangle(x,y,MaxX-x,MaxY-y/2); 

outtextxy(38*x,y/2, "EXERCISE  2"); 

outtextxy(  1 8*x,2*y, "Consider  the  following  grammar  for  expressions."); 

^*  ****************************************  ************}|e****:t:*********y 

outtextxv('20*x,3*y,”<Expression>  ::=  <Term>  I  <Expression>  +  <ierm>"); 
outtextxy(20*x,4*y,"<Term>  ::=  <Operand>  I  <Term>  *  <Operand>"); 
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outtextxy(20*x,6*y,"<Operand>  ::=  A  I  B  I  C"); 

y* ****************************************************************** *y 

outtextxy(14*x,7*y,"Construct  the  parse  tree  for  the  following  expression."); 
outtextxy(35*x,8*y,"A  *  B  +  C  *  A"); 

y********************************************************************y 

while  (in_the_exercise  ==  1 )  { 

outtextxy(15*x,14*y, "Choose  one  of  the  following,  as  you  need 
outtextxy(15'’%15*y,"  a)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(15*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(15*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm_graph_exit(); 
while  (!((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)))  { 
outtextxy(48*x,18*y,"  Please  type  a,  b,  or  c"); 

Ch  =  getch  (); 

if(Ch==ESC)  confirm^  graph_exit(); 
if((Ch  ==  ’a’)  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’))  { 
setcolor(backcolor); 
bar(50*x,35*y/2.88*x,20*y); 
setcolor(forecolor); 


switch  (Ch)  { 
case  ’a’;  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,  1 8*y,"  You  want  to  compare  your  solu-”); 
outtextxy(52*x,19*y,"tion  with  ours.  So  press  any  "); 
outtextxy(52*x,20*y,"key  to  see  it."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

compare_solutions( ); 

break; 

case  ’b’:  outtextxy(47*x,18*y,"b"); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step"); 
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outtextxy(52*x,19*y, "solution.  So  press  any  key  to  "); 
outtextxy(52*x,20*y,"continue."); 

Pause(30*x,24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

step_solution(); 

break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 
confirm_exit(); 
break; 

default  :  break; 

} 

) 

closegraphO; 

} 

/**********************************************************************/ 

/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  * / 

j*  **************************************************************** *****^ 

static  void  compare_solutions(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

pieslice(45*x,9*y,0,359,2);  /*  Expression  */ 

pieslice(35*x,10*y,0,359,2);  /*  Expression  */ 
piesliee(45*x,10*y,0,359,2);  /*  +  */ 

pieslice(55*x,10*y, 0,359,2);  /*  Term  */ 
moveto(35*x,10*y);  lineto(45*x,9*y); 
lineto(55*x,10*y); 

moveto(45*x,9*y);  lineto(45*x,10*y); 
outtextxy(46*x,9*y,  "Expression"); 
outtextxy(23*x,10*y,  "Expression"); 
outtextxy(45*x,21  *y/2,”+"); 
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outtextxy(56*x,10*y,"Terin"); 

y*  *******************************************************************/ 

pieslice(35*x,l  l*y,0,359,2);  /*Term  */ 
pieslice(55*x,ll*y,0,359,2);  /*Term  */ 
pieslice(50*x,ll*y, 0,359,2);  /*  *  */ 

pieslice(60*x,l  l*y, 0,359,2);  /*  Operand  */ 
moveto(35*x,10*y);  lineto(35*x,l  l*y); 
moveto(55*x,10*y);  lineto(50*x,l  l*y); 
moveto(55*x,10*y);  lineto(55*x,l  l*y); 
moveto(55*x,10*y);  lineto(60*x,l  l*y); 
outtextxy(29*x,l  l*y,"Term"); 
outtextxy(44*x,l  1  *y,"Term"); 
outtextxy(55*x,23*y/2,”*"); 
outtextxy  (6 1  *x,  1 1  *y, "Operand"); 

^********************************************************************y 

pieslice(30*x,12*y, 0,359,2);  /*  Term  */ 

pieslice(35*x,12*y,0,359,2);  /*  *  */ 

pieslice(40*x,12*y,0,359,2);  /*  Operand  */ 

pieslice(50*x,12*y,0,359,2);  /*  Operand  */ 

pieslice(60*x,12*y, 0,359,2);  /*  A  */ 

moveto(30*x,12*y);  lineto(35*x,l  l*y); 

moveto(35*x,12*y);  lineto(35*x,l  l*y); 

moveto(40*x,12*y);  lineto(35*x,l  l*y); 

moveto(50*x,12*y);  lineto(50*x,l  l*y); 

moveto(60*x,12*y);  lineto(60*x,l  l*y); 

outtextxy(24*x,12*y,"Terrn"); 

outtextxy(35*x,25*y/2,"*"); 

outtextxy(39*x,23*y/2, "Operand"); 

outtextxy(5 1  *x,  1 2*y, "Operand"); 

outtextxy(60*x,25*y/2,"A"); 

^* *******************************************************************/ 

pieslice(30*x,13*y,0,359,2);  /*  Operand  */ 

pieslice(40*x,13*y,0,359,2);  /*  B  */ 

pieslice(50*x,l3*y,0,359,2);  /*  C  */ 

moveto(30*x,12*y);  lineto(30*x,13*y); 

moveto(40*x,l  2*y);  lineto(40*x,  1 3*y); 


1564 


moveto(50*x,  1 2*y);  lineto(50*x,  1 3*y); 
outtextxy(21*x,13*y, "Operand"); 
outtextxy(40*x,27*y/2,"B"); 
outtextxy(50*x,27*y/2,"C"); 

/********************************************************************/ 
pieslice(30*x,  1 4*y,0,359,2);  /*  A  */ 
moveto(30*x,14*y);  lineto(30*x,13*y); 
outtextxy(30*x,29*y/2,"A"); 

I******************** '************************************* »#*********y 
Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setcolor(  forecolor) ; 


/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

y**********************************************************************^ 

static  void  step_solution(void) 

{ 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

pieslice(45*x,9*y,0,359,2);  /*  Expression  */ 
outtextxy(46*x,9*y, "Expression"); 

Pause(30*x,24*y); 

pieslice(35*x,10*y,0,359,2);  /*  Expression  */ 
pieslice(45*x,10*y,0,359,2);  /*  +  */ 

pieslice(55*x,10*y,0,359,2);  /*  Term  */ 
moveto(35*x,10*y);  lineto(45*x,9*y); 

Iineto(55*x,10*y); 

moveto(45*x,9*y);  lineto(45*x,  1 0*y); 
outtextxy(23*x,10*y, "Expression"); 
outtextxy(45*x,2 1  *y/2 ,"+"); 
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outtextxy(56*x,10*y,"Term"); 

Pause(30*x,24*y); 

/********************************************************************/ 

pieslice(35*x,ll*y,0,359,2);  /*Term  */ 

pieslice(55*x,l  l*y,0,359,2);  /*  Term  */ 

pieslice(50*x,  U  *y ,0,359.?);  /*  *  */ 

pieslice(60*x,  1 1  *y, 0,359, 2);  /*  Operand  */ 

moveto(35*x,10*y);  lineto(35*x,l  l*y); 

moveto(55*x,10*y);  lineto(50*x,l  l*y); 

moveto(5 5*x,10*y);  lineto(5  5  *  x,  1 1  *  y ); 

moveto(55*x,10*y);  lineto(60*x,l  l*y); 

outtextxy(29*x,l  l*y,"Term"); 

outtextxy(44*x,l  l*y,"Term"); 

outtextxy(55*x,23*y/2,"*"); 

outtextxy(61  *x,l  1  *y, "Operand"); 

Pause(30*x,24*y); 

^**************************************!(c****%****>|c*******************^ 

pieslice(30*x,12*y,0,359,2);  /*  Term  */ 
pieslice(35*x,12*y,0,359,2);  /*  *  */ 

pieslice(40*x,12*y,0,359,2);  /*  Operand  */ 
pieslice(50*x,12*y, 0,359,2);  /*  Operand  */ 
pieslice(60*x,12*y,0,359,2);  /*  A  */ 
moveto(30*x,12*y);  lineto(35*x,l  l*y); 
moveto(35*x,12*y);  lineto(35*x,l l*y); 
moveto(40*x,12*y);  lineto(35*x,l  l*y); 
moveto(50*x,12*y);  lineto(50*x,l  l*y); 
moveto(60*x,12*y);  lineto(60*x,l  l*y); 
outtextxy(24*x,12*y,"Term"); 
outtextxy(35*x,25*y/2,"*"); 
outtextxy(39*x,23*y/2, "Operand”); 
outtextxy(5 1  *x,l  2*y, "Operand"); 
outtextxy(60*x,25*y/2,"A"); 

Pause(30*x,24*y); 

j> it**%****************************************************************y 

pieslice(30*x,13*y,0,359,2);  /*  Operand  */ 
pieslice(40*x,13*y,0,359,2);  /*  B  */ 
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pieslice(50*x,13*y, 0,359,2);  /*  C  */ 
moveto(30*x,12*y);  lineto(30*x,13*y); 
moveto(40*x,12*y);  lineto(40*x,13*y); 
moveto(50*x,12*y);  lineto(50*x,13*y); 
outtextxy(2 1  *x,  1 3*y, "Operand"); 
outtextxy(40*x,27*y/2,"B"); 
outtextxy(50*x,27*y/2,"C’); 

Pause(30*x,24*y); 

pieslice(30*x,14*y,0, 359,2);  /*  A  */ 
moveto(30*x,  14*y);  lineto(30*x,  1 3*y); 
outtextxy(30*x,29*y/2,"A"); 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 

} 

y**********************************************************************^ 

static  void  confirm_exit(void) 

{ 

char  ch; 

outtextxy(52*x,18*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,19*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  —>''); 
ch  =  getch  (); 

while  (!((ch  ==  V)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(53*x,22*y,"  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’ )  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,21*y,179*x/2,49*y/2); 
setcolor(forecolor); 

} 
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switch  (ch)  { 
case  ’y’:  in_the_exercise  =  0; 
break; 

case  ’Y’:  in_the_exercise  =  0; 
break; 


case  V:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default :  break; 

) 
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/*  PROGRAM  :  q473.c 
AUTHOR  :  Atilla  BAKAN 
DATE  :  Apr.  7,  1990 
REVISED  :  Apr.  7, 1990 

DESCRIPTION  :  This  program  contains  the  third  exercise  about  the 
language  syntax. 


MACHINE/COMPILER  :  This  program  is  written  with  IBM  pc  by  using  Turbo 

C  compiler  Version  2.0. 


*/ 


/*  header  files  */ 

#include  <graphics.h> 

#include  "cxldef.h" 

#include  "cxlkey.h" 

#include  "cxlmou.h" 

#if  defined(_TURBOC_J  /*  Turbo  C  */ 

#include  <dir.h> 

#else 

#include  <direct.h>  /*  all  others  */ 

#endif 

#if  defined(M_I86)  &&  !defined(_ZTC_)  /*  MSC/QuickC  */ 

#define  bioskey(a)  _bios_keybrd(a) 

#define  findfirst(a,b,c)  _dos_findfust(a,c,b) 

#define  findnext(a)  _dos_findnext(a) 

#define  ffblk  find_t 

#define  ff_name  name 

#elif  defined! _ ZTC _ )  /*  Zortech  C/C++  */ 

#define  ffblk  FIND 

#define  ff_name  name 
#defuie  ff_attrib  attribute 

#endif 
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#define  _GRAPH_T_DEFINED 

/*  function  prototypes  */ 

/*  Utility  functions  */ 
static  void  init_graph  (void); 
static  void  confirm_graph_exit  (void); 
static  void  Pause  (int  i,  int  j); 

static  void  register_drivers  (void); 
extern  void  settext  (void); 

/*  tutorial  functions  */ 
static  void  exer  (void); 

static  void  example  (void); 

static  void  show_alg  (void); 

static  void  step_solution  (void); 
static  void  compare_solutions  (void); 
static  void  confimi_exit  (void); 

j  jfc  %  *  *  *  *  ★  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  +  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  jft  afc  if  aft  jtfr  jfr  jfr  if  jfr  jfr  jfr  Jft  jfr  jfr  *  *  *  *  %  jfr  *  *  jfr  jfr  jfr  Jfr  jfr  jfc  Jff  Jfc 

/*  miscellaneous  global  variables  */ 

int  in_the_exercise  =  1 ; 


/*  graphic  initialization  variables  */ 

^****************J4”l<******>(<**!t<****l(l*!t'*******  +  ***********j(t*!|<J|C*lt"*J(<*****>(<j|<>tt^ 


int  curr_mode; 
int  graphdriver; 
int  graphmode; 
int  graph_error; 
int  backcolor; 


int  forecolor; 


int  quitcolor; 

int  x,  y,  MaxX,  MaxY; 
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/*  Tliis  function  is  used  for  including  drivers  to  the  executable  code  */ 

!+  ***************************************** ****************************/ 


static  void  register_drivers(void) 

{ 

if(registerbgidriver(CGA_driver)  <  0)  exit(l); 
if(registerbgidriver(EGAVGA_driver)  <  0)  exit(l); 
if ( re g is t e rbg idr i ve r( ATT_driv e r )  <  0)  exit(l); 

} 


/**********+*********************+***********+************+***********+/ 
/*  This  fuction  initializes  the  necessary  graphical  routines  */ 

static  void  init _graph(void) 


int  xasp.  yasp; 


register_drivers(); 
graphdriver  =  DETECT; 

/•*  *  **  *  *  *  *  *  *  *  *  *  *  **  *  *  *  ***  **  **  *  **  *  *  *  *  *  *  *  **  **  *  *  **  *  **  *  **  *  *  *  *  ****  *  *  **  *  **** 


initgraph(&graphdriver,&graphmode,""); 
graph_error  =  graphresult(); 


if(graph_error  <  0){ 

puts  (gr  aphe  rronns  g(graph_en  or ) ) ; 

exitfl ); 


^*  *******************************************************************/ 
MaxX  =  getmaxxf); 

MaxY  =  getmaxyO; 
x  =  MaxX/80; 


y  =  MaxY/25; 

/+***  +  ***************  +  >|<**********>|<*>|<>|lj(<>(<**>t;>t<****  +  ****>t<******!|t  +  *+  **>t<*!(<lty 


settext(); 

J*  *****  * 


*********************************  ****************************^r 


if  ((graphmode  ==  CGAHI)  II  (graplunode  ==  MCGAMED)  II  (graphmode  == 
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ATT400MED)  II  (graplimode  ==  MCGAHI)  II  (graphmode  ==  ATT400HI))  { 
setfillstyle(SOLID_FILL,  BLACK); 
baekcolor  =  BLACK; 
quitcolor  =  WHITE; 

) 

else  { 

setfillstyle(SOLID_FILL,BLUE); 
baekcolor  =  BLUE; 
quitcolor  =  RED; 

I 

forecolor  =  WHITE; 


/************************************* *********************************/ 
static  void  confurn_graph_exit(void) 

( 

struct  _onkey_t  *kblist; 
char  ch; 

setcolor(backcolor); 

bnr(3*x/2,23*y,179*x/2,97*y/4); 

setcolor(quitcolor); 

kblist=chgonkey(NULL);  /*  hide  any  existing  hot  keys  */ 
if(_mouse&MS_CURS)  mshidecur(); 
outtextxy(3*x/2,24*y,''Quit!  Are  you  sure  (y/n )?”); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’ )  II  (ch  ==  V)  I!  (ch  ==  ’Y’)  II  (ch  ==  ’N’)))  { 
outtextxy(32*x,24*y,”  Please  type  y  or  n"); 
ch  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 

setcolor(backcolor ); 

bar(3 1  *x,23*y,69*x,97*y/4); 

setcolor(quitcolor); 

I 

switch  (ch)  ( 

case  ’y’:  closegraph(); 
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videoinitQ; 

exit(O); 

break; 

case  ’Y’:  closegraphQ; 
videoinit(); 
exit(O); 
break; 

case  ’n’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x,23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

case  ’N’:  setcolor(backcolor); 

bar(4*x/3,23*y,30*x,97*y/4); 
bar(31  *x.23*y,69*x,97*y/4); 
setcolor(  forecolor); 
break; 

default :  break; 

} 

hidecurf); 

if(_mouse&MS_CURS)  msshowcur(); 

chgonkey(kblist);  /*  restore  any  hidden  hot  keys  */ 


/*  This  function  sets  the  text  default  values  */ 

/a*********************************************************************/ 

static  void  settext(void) 

( 

settextstyle(0,0.0); 

setlinestyle(0,4,3); 

settextjustify(HORIZJDIR,CENTER_TEXT); 
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/**************«.************************************************ ******  *  j 

, ;  Equivalent  of  press_a_key  function  for  graphics  screen  */ 

y*************#********************************************************^ 

void  Pause(i,j) 
int  i,  j; 

I 

settext(); 

outtextxy(i,j,"»>PRESS  A  KEY  TO  CONTINUE.. .<<<"); 
if(waitkey(  )==ESC)  confinn_grapli_exit(); 

> 

y*********************************************************************^ 

/*  maui  routine,  calls  exer  routine  */ 

void  main( ) 

I 

exer(); 

} 

yit.********************************************************************^ 

/*  This  routine  asks  the  question,  then  depending  on  the  user’s  answer  */ 

/*  makes  necessary  explanations  */ 

j +  afca|c3((9fca(<34<sfc3fcaf<afc9fc3f<3fca^3fc9f<a|c3fe9|c9fe9|eafc  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

static  void  exer(void) 

( 

char  Ch; 

init_graph(); 
setcolor(  forecolor); 
bar(0,0,MaxX,MaxY ); 
rectangle(x,y.MaxX-x,MaxY-y/2); 
outtextxy(38*x,y/2. "EXERCISE  3"); 

outtextxy(18*x,2*y, "Consider  the  following  grammar  for  expressions." ); 

outtextxy(20*x.3*y."<Expression>  :;=  <Term>  1  <Expression>  +  <Temi>"); 
outtextxy(20*x,4*y,"<Term>  ::=  <Operand>  I  <Term>  *  <Operand>"); 
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outtextxy(20*x.5*y,"<Operand>  ::=  A  I  B  I  C"); 
/*********************%*+*********************+********+****+***+****/ 
outtext\y(  14*\,7*y  "Construct  the  parse  tree  for  the  following  expression."); 
outtextxy(35*x,8*y,  "B  +  B  +  C  +  A"); 

while  (in_the_exercise  =  1)  { 

outtextxy(14*x,14*y, "Choose  one  of  the  following,  as  you  need  :"); 
outtextxy(14*x,15*y,"  a)  I’m  done,  I  want  to  compare  my  solution  with  yours."); 
outtextxy(14*x,16*y,"  b)  I  want  to  see  step  by  step  solution."); 
outtextxy(14*x,17*y,"  c)  This  is  enough  for  me,  I  want  to  exit."); 
outtextxy(15*x,18*y, "Enter  your  choice  here  — >"); 

Ch  =  getch  (); 

i f ( Ch== ES  C )  confi nn_graph_ex  i t ( ); 
while  (!((Ch  ==  a')  II  (Ch  ==  ’b’)  II  (Ch  ==  ’c’)))  | 
outte’txy(48*x,18'(<y,"  Please  type  a,  b,  or  c"); 

Ch  =  getch  (); 

if(Ch==ESC)  confinn_graph_exit(); 
if((Ch  ==  ’a’)  I!  (Ch  ==  ’b’)  II  (Ch  ==  ’c’))  ( 
set  olor(backcolor); 
bar(50*x,35*y/2,88*x,20*y); 
setcolor(  forecolor); 


switch  (Ch)  { 
case  ’a’:  outtextxy(47*x,18*y,"a"); 
outtextxy(52*x,18*y,"You  want  to  compare  your  solu-"); 
outtextxy(52*x,19*y,"tion  with  ours.  So  press  any  ”); 
outtextxy(52*x,20*y,”key  to  see  it."); 

Pause(30*x,24,1'y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

compare_solutions(); 

break; 

case  V:  outtextxy(47*x,18*y,"b"); 
outtextxy(52*x,18*y,"You  want  to  see  step  by  step") 
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outtextxy(52*x,19*y, "solution.  So  press  any  key  to  "); 
outtextxy  (52*x,20*y  ."continue ); 

Pause(30*x.24*y); 

setcolor(backcolor); 

bar(50*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

step_solution(); 

break; 

case  ’c’:  outtextxy(47*x,18*y,"c"); 
conf.rm_exit(); 
break; 

default  :  break; 

I 

) 

closegraphO; 


y*%l(<*l|<***l)<>(<****j(<*j(ll(<*****  +  +  *  +  j(<**>l<l|<*******!t<**********>l'*1l‘*  +  ***  +  >l<*  +  *>l'*  +  ****^ 

/*  This  routine  gives  the  solution  to  the  exercise  to  be  compared.  */ 


static  void  compare_solutions(void) 


setcolor(  backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setcolorl  forecolor); 

pieslice(45*x,9*y,0,359,2);  /*  Expression  */ 

pieslice(35*x,l0*y,0,359,2);  /*  Expression  */ 

pieslice(45*x,19*y/2,0,359,2);  /*  +  */ 

pieslice(55*x,  10*y,0,359,2);  /*  Term  */ 

moveto(35*x  l()*y);  lineto(45*x,9*y); 
lineto(55*x,10*y); 

moveto(45*x,9*y);  lineto(45*x,19*y/2); 
outtextxy(46*x,9*y, "Expression"); 
outtextxy(22*x,10*y, "Expression"); 
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outtextxy(45*x,l0*y,"+"); 

outtextxy(56*x,10*y,"Term"); 

pieslice(25*x,l  l*y,0,359,2);  /*  Expression  */ 
pieslice(35*x,21*y/2,0,359,2);  /*  +  */ 

pieslice(45*x,l  l*y,0,359,2);  /*  Tenn  */ 
pieslice(55*x,ll*y,0,359,2);  /*  Operand  */ 
moveto(25*x,l  l*y);  lineto(35*x,10*y); 
lineto(45*x,l  l*y); 

inoveto(35*x,10*y);  lineto(35*x,21*y/2); 
nioveto(55*x,10*y);  lineto(55*x,l  l*y); 
outtextxy(12*x,l  l*y, "Expression"); 
outtextxy(56*x,l  1  *y, "Operand"); 
outtextxy(35*x,ll*y,"+"); 
outtextxy(46*x.l  1  *y,"Term"); 

/*****+**+, K***********************************************^**********^ 

pieslice(20*x,12*y, 0,359,2);  /*  Expression  */ 
pieslice(25*x,23*y/2,0,359,2);  /*  +  */ 

pieslice(30*x,12*y,0,359,2);  /*  Term  */ 
pieslice(45*x,l2*y, 0,359,2);  /*  Operand  */ 
pieslice(55*x,12*y,0,359,2);  /*  A  */ 

moveto(20*x,12*y);  lineto(25*x,ll*y); 
lineto(30*x,l  2*y): 

moveto(25*x.l  l*y);  lineto(25*x,23*y/2); 
moveto(45*x,I  l*y);  lineto(45*x,12*y); 
moveto(55*x.ll*y);  lineto(55*x,12*y); 
outtextxy(7*x,12*y, "Expression"); 
outtextxy(46*x,12*y, "Operand"); 
outtextxy(25*x,12*y,"+"); 
outtextxy(3 1  *x,l  2*y,"Term"); 
outtextxy(55*x,25*y/2,"A"); 

^**************************************#*****,(,1),*,),*J(,J(,1),,t,J(,++,(t,(<1(1J(I.<,,(<,(,,((,(,l|1])<,(y 

pieslice(20*x,I3*y,0,359,2);  /*  Tenn  */ 
pieslice(3()*x,13*y, 0,359,2);  /*  Operand  */ 
pieslice(45*x,13*y,0,359,2);  /*  C  */ 
moveto( 20*x.  1 2*y );  lineto(20*x,  1 3*y ); 


moveto(30*x,12*y);  lineto(30*x,13*y); 
moveto(45 *x,  1 2*y );  lineto(45 *x,  1 3 *y ); 
outtextxy(31*x,13*y, "Operand"); 
outtextxyl !  4  *x ,  1 3  *y  ,"Tenn" ); 
outtextxy(45  *x,27  *y/2,"C" ); 

/%**************************************************************%****/ 

pieslice(20*x,14*y,0,359,2);  /*  Operand  */ 

pieslice(30*x,14*y,0,359,2);  /*  B  */ 

inoveto(20*x,13*y);  lineto(20*x,14*y); 

moveto(30*x.l3*y);  lineto(30*x,14*y); 

outtextxy(l  l*x,14*y, "Operand"); 

outtextxy(30*x,29*y/2,"B"); 

/****  +  *********************************************************Sfc****jfy 

pieslice(20*x,15*y,0,359,2);  /*  B  */ 
moveto(20*x,15*y);  lineto(20*x,14*y); 
outtextxy(20*x,3 1  *y/2,"B"); 

y*  ************************★**★*****★********  +  %******★****************/ 

Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,33  *y/4, 1 79*x/2,49*y/2 ); 
setcolor(forecolor); 


/*  This  routine  gives  the  step  by  step  solution  to  the  exercise  */ 

^ifr*********************************************************************/ 

static  void  step_solution(void) 

I 

setcolor(backcolor);  /*  Clean  the  game  field  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setco!or(  forecolor); 

/********************************************************************/ 
pieslice(45*x.9*y,0,359,2);  /*  Expression  */ 
outtextxy(46*x,9*y, "Expression"); 

Pause(30*x,24*y); 
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pieslice(35*x,10*y,0,359,2);  /*  Expression  */ 
pieslice(45*x,19*y/2,0,359,2);  /*  +  */ 

pieslice(55*x,10*y,0,359,2);  /*Term  */ 
moveto(35*x,10*y);  lineto(45*x,9*y); 
lineto(55*x,10*y); 

mo veto(45  *x  ,9*y ) ;  line to(45  *x ,  1 9  *y/2); 
outtextxy(46*x,9*y, "Expression"); 
outtextxy(22*x,10*y, "Expression"); 
outtextxy  (45  *x ,  1 0*y ,"+" ); 
outtextxy(56*x,10*y,"Term"); 

Pause(30*x,24*y); 


^***i(<j(c**^<******i(titt**H«*********i(<**  +  **4>i(<*>t'it'********‘t>*1t<**>(<  +  *i(<>t<**>t<1(<**  +  >t'*'('*^ 


*/ 

*/ 


pieslice(25*x,l  l*y,0,359,2);  /*  Expression  */ 
pieslice(35*x,2i*y/2,0,359,2);  /*  +  */ 

pieslice(45*x.l  l*y, 0,359,2);  /*  Term 
pieslice(55*x.l  l*y,0,359,2);  /*  Operand 
moveto(25 *x,  1 1  *y );  lineto(35 *x,  1 0*y ); 
lineto(45*x,l  l*y); 

moveto(35*x,10*y);  lineto(35*x,21  *y/2); 
moveto(55*x,10*y);  lineto(55*x,l l*y); 
outtextxy(12*x,l  1  *y, "Expression"); 
outtextxy(56*x,l  l*y, "Operand"); 
outtextxy(35*x,l  1  *y ,"+"); 
ouuextxy(46*x,l  1  *y,"Tenn"); 

Pause(30*x,24*y); 

^  ***%*** +  ************#***  + ***#**!(<  #****♦★*!(>  +  **  +  +  *****  ***♦****  +  **!(>*  y 


pieslice(20*x,12*y,0,359,2);  /*  Expression  */ 
pieslice(25*x,23*y/2,0,359,2);  /*  +  */ 

pieslice(30*x,l2*y,0,359,2);  /*Term  */ 
pieslice(45*x,12*y,0,359,2);  /*  Operand  */ 
pieslice(55*x,12*y,0,359,2);  /*  A  */ 

moveto(20*x,12*y);  lineto(25*x,l  l*y); 
lineto(30*x,12*y); 

moveto(25*x,l  l*y);  lineto(25*x,23*y/2); 
moveto(45*x,l  l*y);  lineto(45*x,12*y); 
moveto(55*x,i  l*y);  lineto(55*x,12*y); 
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outtextxy(7*x,12*y, "Expression"); 
outtextxy(46*x,12*y  ."Operand"); 
outtextxy  (25  *x ,  1 2*y ,"+" ); 
outtextxy(3 1  *x,  1 2*y  ,'Temi" ); 
outtextxy(55*x,25*y/2,"A"); 

Pause(30*x,24*y); 

^** **********************************  I****************** ****** ********y 

pieslice(20*x,13*y,0,359,2);  /*Term  */ 
pieslice(30*x,13*y,0,359,2);  /*  Operand  */ 
pieslice(45*x,I3*y,0,359,2);  /*  C  */ 
moveto(20*x,12*y);  lineto(20*x,13*y); 
moveto(30*x,l2*y);  lineto(30*x,13*y); 
moveto(45*x,  1 2*y );  lineto(45*x,l  3*y); 
outtextxy(3 1 *x,  1 3  *y  ."Operand" ); 
outtextxy(14*x,13*y,"Term"); 
outtextxy(45  *x,27*y/2,"C" ); 

Pause(30*x,24*y); 

^* ************** *****************************************************/ 


pieslice(20*x,14*y,0,359,2);  /*  Operand  */ 
pieslice(30*x,I4*y,0,359,2);  /*  B  */ 
inoveto(20*x,13*y);  lineto(20*x,14*y); 
nioveto(30*x,13*y);  lineto(30*x,14*y); 
outtextxy(l  l*x,14*y, "Operand"); 
outtextxy(30*x.29*y/2,"B”); 

Pause(30*x,24*y); 

/********************************************************************^ 
pieslice(20*x,15*y  ,0,359,2);  /*  B  */ 
moveto(20*x,15*y);  lineto(20*x,14*y); 
outtextxy(20*x,3 1  *y/2,"B" ); 

^********************************************************************^ 


Pause(30*x,24*y); 

setcolor(backcolor);  /*  Clean  the  game  field  again  */ 

bar(2*x,33*y/4,179*x/2,49*y/2); 

setcolor(forecolor); 


) 
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static  void  confmn_exit(void) 


{ 

char  ch; 

outtextxy(52*x.l8*y,"You  wanted  to  exit.  "); 
outtextxy(52*x,19*y,"Are  you  sure  ?  "); 
outtextxy(52*x,20*y,"Type  y  or  n  — >"); 
ch  =  getch  (); 

while  (!((ch  ==  ’y’)  II  (ch  =  ’n’)  II  (ch  =  ’Y’)  II  (ch  =  ’N’)))  ( 
outtextxy(53*x,22*y,"  Please  type  y  or  n"); 
cli  =  getch  (); 

if((ch  ==  ’y’)  II  (ch  ==  ’n’)  II  (ch  ==  ’Y’)  II  (ch  ==  ’N’)) 
setcolor(backcolor); 
bar(50*x,21*y,179*x/2,49*y/2); 
setcolor(forecolor); 

I 

switch  (ch)  ( 

case  ’y’:  in_the_exercise  =  0; 
break; 

case  'Y’:  in_the_exercise  =  0; 
break; 

case  ’n’:  setcolor(backcolor); 

bar(46*x,35*y/2,l  79*x/2,22*y ); 

setcolor(  forecolor); 

break; 

case  ’N’:  setcolor(backcolor); 

bar(46*x,35*y/2,179*x/2,22*y); 

setcolor(forecolor); 

break; 

default .  break; 

I 
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